Apple Lisa Computer Technical Information 



Apple Lisa 

Desktop Library 3.0 

Pascal Interfaces 




This is a listing of the Lisa desktop library interfaces. These interfaces provided the 
foundation for the Lisa's desktop and windowing metaphor (collectively called "Lisa 

Technology"). 

Apple later based the Macintosh Toolbox on these libraries and in some cases used nearly 

an identical programming interface (e.g. MENUS). 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 



************************************************************************** 

* 

* APPLE LISA DESKTOP 3.0 LIBRARIES UNIT TABLE 



Uni t Name Unit* File* Type DataSize 



PASLI B 

UNITSTD 

GRAFUTI L 

UNITHZ 

STORAGE 

QUICKDRA 

HIM NT 

FEDEC 

FONTMGR 

EVENTS 

WINDOWS 

FOLDERS 

MENUS 

FLDUT 

WMLSTD 

WMLCRS 

WMLGROW 

WMLSB 

I NTERNAT 

FPLI B 

ALERTMGR 

MATHLI B 

UNITFF 

UNITCS 

UNITFI LE 

UNITFMT 

BGENV 

MATMGR 

PARSER 

COMPUTE 

STUBS 

UUNI VERS 

FEGLOBAL 

COMGR 

USTDTERM 

UQPGRAPH 

TEEXEC 

UQPPRI NT 

LCFEXEC 

TEENV 

TM 

FMGRUTI L 

PMM 

PMDECL 

UNITFI GA 

SYS1LOCK 

UCLASCAL 

UTKUNI VE 

UOBJ ECT 

UTEXT 

UDRAW 

UABC 

UDI ALOG 

LCUT 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
49 
50 
51 
52 
53 
54 
55 



3 I 

4 I 



6 

6 

4 

4 

4 

4 

4 

3 

11 

10 

11 

10 

10 

11 

6 



nt r i n 
nt r i n 
nt r i n 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
hared 
hared 
hared 
hared 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
hared 
hared 
hared 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
hared 
nt r i n 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 



000000 
000002 
000000 
000024 
000008 
0000CE 
000000 
000000 
000054 
000210 
0010F2 
00000A 
00009C 
000000 
000018 
0003FE 
00000E 
000038 
000000 
000006 
000300 
000016 
00004A 
000644 
000156 
0001F2 
000058 
00188E 
0006FC 
000084 
000000 
000222 
000398 
00033C 
0002CE 
000056 
000004 
000188 
0001A6 
00080E 
000BCA 
000000 
000042 
000000 
00002A 
000000 
00004E 
0001CA 
000164 
00027C 
0001B2 
0009F2 
000564 
00002C 
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000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 



IOPRI MIT 

SHELLCOM 

PROGCOMM 

RECOVERY 

LOWLEVEL 

DBDECL1 

POOLER 

DBENV 

HEAP 

VLTREE 

CZCOMPAC 

LABSCAN 

SCHEMA 

SCAN 

FIELDEDI 

SCRAP 

FILERCOM 

PRPUBLIC 

PRSTDI NF 

PRSTDPRO 

PRFI LEPR 

PRBUF 

PRSPOOL 

QUEUES 

PREVENTS 

PRDLGMGR 

PRMGR 

UVT100 

USOROC 

STDUNIT 

I UMAN 

OBj 10 

F I LEI 

GRAPHS 

TREES 

REFS 

PARTS 

LISTS 

MEMMAN 

PASDEFS 

MPASLI B 

BLKIOI NT 

BLOCKIO 

PASHEAP 



56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
68 
69 
70 
71 
73 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
90 
91 
92 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 



12 
12 
12 
6 
6 
6 
6 



I nt r i n 
Shared 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
Shared 
Shared 
I nt r i n 
Shared 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
Shared 
I nt r i n 



00057E 
00070C 
000006 
000000 
000126 
000000 
000052 
000000 
000000 
000000 
00001C 
000000 
000000 
000000 
0000CA 
000250 
0002E8 
000000 
0005D0 
000002 
000000 
000010 
000346 
000000 
000000 
0000BA 
000026 
00001C 
00001C 
0005B0 
0000BC 
00011C 
000000 
000008 
000000 
000004 
000004 
000000 
000000 
00025E 
000000 
0000DE 
0005C4 
000022 






THE END 



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 



End of File 



Li nes: 113 Characters: 3628 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : ALERTMGR 

USES {$U + } ALERTMGR; 

I NTRI NSIC; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$set 
{$set 
{ $s et 
{$set 
{$set 
{ $s et 
{ $s et 



bhw/HWINT} Hwl nt, 
bsm/UNITSTD} UnitStd, 
bsm/UNITHZ} UnitHz, 
bqd/ STORAGE } Storage, 
bqd/ QUICKDRAW} QuickDraw, 
bf m/FONTMGR} FontMgr, 
bf m/FMGRUTI L} FMgrUti I, 
bos/SYSCALL} SysCall, 
bos/ PSYSCALL} PSysCal I, 
bpm/PMDECL} PMDecl, 
bpm/PMM} PMM, 
bwm/ EVENTS} Events, 
bwm/FOLDERS} Folders, 
bwm/ MENUS} Menus, 
bwm/ Wl NDOWS} Wi ndows, 
bsb/WMLSTD} Wml Std, 
bsb/WMLCRS} WmlCrs, 
bdb/DBENV} dbenv; 
al Symbol s : = FSymOK} 
al Debug : = FDbgOK} 
dbgAI Woul d := al Debug} 
dbgAI rt : = fal se} 
dbgAI Evt : = fal se} 
dbgAI RdErr := false} 
dbgAI OpErr : = f al se} 



CONST 
maxBut n 
noBut n 

TYPE 
TButn 

TAI ertFi I e 
PAI ert Rec 
TAI ert Rec 



TParamAI ert 
T Ar g Al ert 
TCountAI ert 
TPst r 255 

TAI ert Ki nd 



10; 
11; 



0. . ma 
"PAI e 
"TAI e 

RECOR 
fa 
fn 
fr 
fP 

END; 

St ri n 

0. .5; 

7. .9; 

"St r 2 

(getP 
caut 
caut 



xBut n; 

rt Rec; 

rt Rec; 

D 

I erts: I ongi nt ; 

umAI erts: i nt eger; 

ef Num: i nteger; 

os: i nteger; 

g[ 40] ; 



55; 

roc, drawProc, askProc, waitProc, stopProc, noteProc, 
ionProc, caut i onOKproc, caut i onCancel Proc, 
ionStopProc, caut i onNot eProc, caut i onl nsi st Proc) ; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



VAR 

al ert Error : i nt eger; 
ref useDeact i vat e: bool ean; 
t raceWoul d Al ert : bool ean; 
prevent Reent ry: bool ean; 
BackGr I nProgress: bool ean; 
{$i fc dbg Al RdErr} 
f akeAl Error: I nt eger; 
{$endc} 

FUNCTI ON As k Al ert ( al ert Fi I e: TAIertFlle; al ert Number : Integer): Integer; 

PROCEDURE ArgAlertfn: TArgAlert; s: St r 255) ; 

FUNCTI ON BackgroundAI ert ( al ert Fi I e: TAIertFlle; alertNumber: Integer; 

alertType: TAIertKInd): Integer; 

PROCEDURE BeepAl ert ( vol ume: Integer); 

FUNCTION But nPushed( f i rst, last: TButn; VAR pushed: TButn; 
pt : Pol nt ) : bool ean; 

FUNCTION Caut I onAI ert ( al ert FI I e: TAIertFlle; alertNumber: Integer): boolean; 

FUNCTION Cal c But Wi dt h( t opBut n, bot But n : TButn; VAR height: Integer): Integer; 

PROCEDURE Count Al ert ( whi chCounter: TCount Al ert; countValue: Integer); 

PROCEDURE DrawAI ert ( al ert Fi I e: TAIertFile; alertNumber: integer; 
margi nRect : Rect ) ; 

PROCEDURE DTAI er t ( a I ertFi I e: TAIertFile; osDT: longint; 
VAR userString: TParamAI ert ) ; 

PROCEDURE EndWai t Al ert ; 

PROCEDURE Get Al er t ( a I ertFi I e: TAIertFile; alertNumber: integer; 
pStr: TPst r 255) ; 

PROCEDURE Get But n( d: TButn; pStr: TPst r 255) ; 

PROCEDURE Hi deBut n( d: TButn); 

PROCEDURE I ni t Al er t s ( cacheSi ze, cacheBytes: integer; hz: THz; idleProcPtr, 
errProcPtr: procPtr); 

PROCEDURE i ni t MP( my Heap: Thz; tool Pr e F i x : TParamAI ert ; 

pt rToAl ert Proc: procPtr; phraseversi on: integer; 
my Menus: rMenuPtr; VAR a I ertFi I e : TAIertFile; 
VAR error: i nt eger ) ; 

PROCEDURE LdSgAI; 

PROCEDURE Locat eAI ert ( t op: integer); 

PROCEDURE LockAl e r t ( a I ertFi I e: TAIertFile; alertNumber: integer); 

PROCEDURE Not eAI ert ( al ert Fi I e: TAIertFile; alertNumber: integer); 

FUNCTION Nt hAI ert ( or di nal : INTEGER; a I ertFi I e: TAIertFile; VAR al ert Number, 
numStages: integer; VAR al ert Ki nd: TAIertKind): BOOLEAN; 

PROCEDURE OpenPhraseFi I e( VAR refNum: integer; path: pathName); 

PROCEDURE Par amAI ert ( ci t el, c i t e 2 , cite3: St r 255) ; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 



PROCEDURE PushBut n( d : TButn; f: boolean); 

FUNCTION ReadAI ert s( ref Num, version: Integer): TAIertFlle; 

PROCEDURE ReshowButn(d: TButn); 

PROCEDURE Set But Wi dthsfwi dth: Integer); 

PROCEDURE Sho wBut n( d : TButn; h, v: Integer; fDefault: boolean); 

PROCEDURE StopAl e r t ( a I ertFi I e: TAIertFlle; alert Number : Integer); 

PROCEDURE UnlockAlerts; 

PROCEDURE Wai t Al e r t ( a I ertFi I e: TAIertFlle; al ert Number : Integer); 

PROCEDURE Wo u I d Al e r t ( VAR menu: menulnfo; itemlndex: Integer); 

* 

* THAT' S ALL FOLKS . .. 



End of File 



LI nes: 152 Characters: 4546 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : BLKIOI NT 

USES {$U + } BLKIOI NT; 

INTRINSIC; {$%+} 
I NTERFACE 



USES 



{$U I i bos/ syscal I . obj } syscal I , 
{$U I i bpl/UCIascal .obj } UCIascal; 



{$SETC MONITOR : 

{$SETC DEBUG : 

{$SETC f RANGECK : 

{$SETC f SYMBOL : 

CONST 

MMaxI nt = $ 

MaxUni t = 2 

Max Di r = 7 

Max Di r 1 =7 

VIDLeng = 7 

TIDLeng = 1 

MaxSeg =1 

FBI kSize = 5 

DirBI k = 2 

NameLen =2 

F i I I r L n =1 

SysUnit = 5 

Di rSi ze =2 

DirNBIocks = 4; 

uni t ScConsol e = 1; 
unitSc Keyboard = 2; 

uni t Wi Consol e = 4; 
uni t Wi Keyboard = 5; 

uni t ScPr i nt er = 6; 

uni t Wi Pr i nt er = 7; 

uni tOSFi I e =10; 

TYPE 

{$1 FC MONITOR} 
lORsltWd 



f al se} 
f al se} 
TRUE } 
TRUE } 



7FFF; 
0; 

7; 



5; 
5; 
12; 

I 

3; 
l; 

048; 



{$ELSEC} 
lORsltWd 
{$ENDC} 
DateRec 



Uni t Num 
VI D 



(INoError, IBadBlock, IBadUnit, 
ILostUnit, ILostFile, IBadTitl 
I No F i I e , IDupFile, INotClosed, 
IStrgOvfl, IWrProt, I DevE r r or , 

(I NoError); 

PACKED RECORD 

Year: 0. . 100; 

Day: 0..31; 

Month: 0. . 12; 
END; 

0. . MaxUni t; 
STRI NG[ VIDLENG]; 



I BadMode, ITimeOut, 
e, I NoRoom, I NoUni t, 
I Not Open, I BadFor mat , 
I No Di rSpace); 
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000062 


Di 


r Range 


= 0. . MaxDi r; 


000063 


di r rangl 


= 0. . MaxDi r 1 ; 


000064 


Ti 


tlel D 


= STRI NG[ TI DLENG] ; 


000065 


Full 1 D 


= STRI NG[ NAMELEN] ; 


000066 


Fi 


leKi nd 


= (UNTYPEDFI LE, XDSKFI LE, CODEFI LE, TEXTFI LE, 1 NFOF 


000067 






DATAFILE, GRAFFI LE, FOTOFILE, SECUREDIR); 


000068 


Di 


r Ent ry 


= PACKED RECORD 


000069 






DFIRSTBLK: INTEGER; 


000070 






DLASTBLK: INTEGER; 


000071 






STATUS: BOOLEAN; 


000072 






FILLER1: 0. . 1024; 


000073 






CASE DFKI ND: FI LEKI ND OF 


000074 






SECUREDIR, UNTYPEDFI LE: 


000075 






(DVID: VI D; 


000076 






DEOVBLK: INTEGER; 


000077 






DNUMFILES: INTEGER; 


000078 






DLOADTIME: INTEGER; 


000079 






DLASTBOOT: DATEREC); 


000080 






XDSKFI LE, CODEFI LE, TEXTFI LE, 1 NFOFI LE, DAT 


000081 






GRAFFI LE, FOTOFILE: 


000082 






(DTID: Ti 1 1 el D; 


000083 






DLASTBYTE: integer; 


000084 






CASE BOOLEAN OF 


000085 






TRUE: 


000086 






( DORef num: i nt eger; ) ; 


000087 






FALSE: 


000088 






(DACCESS: DATEREC; ); ) 


000089 






END; 


000090 


Di 


rP 


= A Di rectory; 


000091 


Di 


rectory 


= ARRAY [DirRange] OF DirEntry; 


000092 


CI 


oseType 


= (CNormal, CLock, CPurge, CCrunch); 


000093 


Char Array 


= PACKED ARRAY [ 0. . FBI kSi ze] OF CHAR; 


000094 


Wi 


ndowP 


= A Wi ndow; 


000095 


Wi 


ndow 


= Char Ar r ay; 


000096 


Fi 


1 estate 


= (FjandW, FNeedChar, FGotChar); 


000097 


FIBP 


= A FIB; 


000098 


FVI Dree 


= RECORD 


000099 






CASE BOOLEAN OF 


000100 






TRUE: 


000101 






( FTref num: i nt eger) ; 


000102 






FALSE: 


000103 






(FVID: VI D; ); 


000104 






END; 


000105 


FIB 


= RECORD 


000106 






F Wi ndow: Wi ndowP; 


000107 






FEOLN, FEOF: BOOLEAN; 


000108 






FIsOS: BOOLEAN; 


000109 






FState: FileState; 


000110 






FRec Size: INTEGER; 


000111 






CASE FlsOpen: BOOLEAN OF 


000112 






TRUE: 


000113 






(FIsBlkd: BOOLEAN; 


000114 






FNewFile: BOOLEAN; 


000115 






FUnit: Uni t Num; 


000116 






FVIDstuff: FVI Dree ; 


000117 






FMaxBlk, FNxtBlk, FReptCnt: INTEGER; 


000118 






Hi Byt 3 : 0. . 100; 


000119 






FModified: BOOLEAN; 


000120 






FHeader: DIRENTRY; 


000121 






Hi Byt 4: 0. . 100; 


000122 






CASE FSoftBuf: BOOLEAN OF 


000123 






TRUE: 


000124 






(FMaxByte, FNxtByte: INTEGER; 


000125 






Hi Byt 5: BOOLEAN; 


000126 






FBufChngd: BOOLEAN; 


000127 






FBuffer: Char Ar r ay ) ) 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



{$1 FC MONITOR} 
UTBLENTRY 



{$ENDC} 
envi r Rec 



I ongaddr 
Tst r 255 

TTer mi nal 



VAR 



lORsIt: 
P My i d : 
PAbort Key F: 

PResPr ogr am: 
PBegi n En v : 
PTrLi saChar: 
PConsWi ndow: 
PI nWi ndow: 
PI n put f wi ndow: 
PI nputf i I e: 
POutf wi ndow: 
POut put f i I e: 
PasTer m: 
Ter mMpt r : 
Ter mdat a: 



END; 

RECORD 
UVI D: 
LOGGE 
lockd 
CASE 
TR 

END; 

RECORD 
A6 i n 
PC" 2s 

PC re 
SP i n 
END; 

A l ongi nt 
st ri ng[ 2 
SUBCLASS 
FUNCT 
PROCE 
FUNCT 
PROCE 
FUNCT 
FUNCT 
PROCE 
FUNCT 
FUNCT 
FUNCT 
PROCE 
PROCE 
PROCE 
END; 



D; 

BOOLEAN; 
bool ean; 
iBLKD: BOOLEAN OF 



VI 
D: 
i r : 
Ul SE 
UE: 

(UEOVBLK: INTEGER) 



it: 
et u 
ti n 
it: 



55] 
OF 
ION 
DUR 
ION 
DUR 
ION 
ION 
DUR 
ION 
ION 
ION 
DUR 
DUR 
DUR 



I ongi nt ; 
p: I ongi nt; 
it: I ongi nt ; 

I ongi nt ; 



Nl L 



CREATE: TTer mi nal ; ABSTRACT; 
E VWri t e( VAR str: Tst r 255) ; ABSTRACT; 

VRead: CHAR; ABSTRACT; 
E VGotoxy(x, y: INTEGER); ABSTRACT; 

VKeyPress: BOOLEAN; ABSTRACT; 

VAbort Key: BOOLEAN; ABSTRACT; 
E VSc reenCt r ( cont rf un: INTEGER); ABSTRACT; 

OpenPrinter: INTEGER; ABSTRACT; 

PrWr i t e( VAR str: Tst r 255) : INTEGER; ABSTRACT; 

ClosePri nter: INTEGER; ABSTRACT; 
E Cleanup; ABSTRACT; 
E Set upl OF i I e; 
E I nWi ndow( yesno: BOOLEAN) ; 



I NTEGER; 
I ongi nt ; 
bool ean; 
bool ean; 
envi r Rec; 
Bool ean; 
BOOLEAN; 
I NTEGER; 
CHAR; 
Fl LE; 
CHAR; 
Fl LE; 

TTer mi nal ; 
A l ongi nt ; 
RECORD 

cl asspt r: 
END; 

LONGINT; 
I NTEGER; 



I ongi nt ; 



hal t address: 

fpcb: 

{$1 FC MONITOR} 

gdi rectory: PACKED 

{SENDC} 



ARRAY [ 1 . . d i rsize] OF CHAR; 



FUNCTION %_ F I O R E S U L T : I NTEGER; 
PROCEDURE %_ S e t i o r s I t(i or: integer); 
PROCEDURE %_ Bac kupi nput ( VAR f : text); 
FUNCTION %%%zenvi ron: longint; 
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000194 

U U U 1 9 J 

000196 * 

000197 * THAT' S ALL FOLKS . .. 

000198 * 

000199 ****************************************************************** 

000200 

End of File -- Lines: 200 Characters: 7086 
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Fl LE: "LI SA LI B 3 BLOCKI 0. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : BLOCKI 

USES {$U + } BLOCKI 0; 

I NTRI NSIC SHARED; {$%+} 

I NTERFACE 

USES 

{$U I i bos/ syscal I . obj } syscal I , 

{$U I i bos/ psyscal I . obj } psyscall, 

{$U I i bpl / bl ki oi nt r. obj } blkiointr; 

CONST 

Ccl ear Screen = 1 

Ccl ear EScreen = 2 

Ccl ear ELi ne =3 

CgoHome = 11; 

CI eft Arrow = 12; 

Cri ght Arrow = 13; 

CupArrow = 14; 

CdownArrow = 15; 



TYPE 

consoledest = (alscreen, mai nscreen, xsorocA, xsorocB, folder, sparel, 

spare2, spare3); 
dsProcCode = (dsResProg, dsSoftPwbtn, dsPrintDev, dsSet GPref i x, 

dsEnbDisk, ds Get Di skEnbF) ; 
dsPr oc Par am = RECORD 

CASE ProcCode: dsProcCode OF 
ds Res Pr og: 

( RProcessI d: I ongi nt ) ; 
dsSof t Pwbt n: 

( SPBut ton: boolean); 
dsPr i nt Dev: 

( Pr Devi ce: e name) ; 
dsSet GPref i x: 

(errnum: INTEGER; 
prefix: pathname); 
ds E n b Di sk: 

( t oEnbDi sk: bool ean) ; 
ds Get Di skEnbF: 

( di skEnbF: BOOLEAN); 
END; 
pdsProcCode = ( pdsSomet hi ng) ; 
pds Pr ocPar am = RECORD 

CASE ProcCode: pdsProcCode OF 
pdsSomet hi ng: 

( somet hi ng: I ongi nt ) ; 
END; 

PROCEDURE %.FI NITfVAR F: FIB; WINDOW: Wl NDOWP; recbytes: INTEGER); 

PROCEDURE % FOPENfVAR F: FIB; VARFTITLE: pathname; FOPENOLD: BOOLEAN; 
j UNK: longint); 
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000062 PROCEDURE % FCLOSE(VAR F: FIB; FTYPE: integer); 
000063 

000064 FUNCTION % FBLOCKI 0( VAR F: FIB; A: longint; NBLOCKS, RBLOCK: INTEGER; 

000065 DOREAD: BOOLEAN): INTEGER; 
000066 

000067 PROCEDURE % FGET(VAR F: FIB); 

000068 

000069 PROCEDURE % FPUT(VAR F: FIB); 

000070 

000071 PROCEDURE % WRITELNf VAR F: FIB); 

000072 

000073 PROCEDURE % WRI TEC HAR( VAR F: FIB; charaddr: longaddr; count: integer); 

000074 

000075 PROCEDURE % READLN( VAR F: FIB); 

000076 

000077 FUNCTION % READCHARf VAR F: FIB): CHAR; 

000078 

000079 PROCEDURE % FSEEKfVAR F: FIB; RECORDNUM: integer); 

000080 

000081 PROCEDURE % FGOTOXY(X, Y: INTEGER); 

000082 

000083 FUNCTION PAbor t Flag: boolean; 

000084 

000085 PROCEDURE Get GPref i x( VAR prefix: pathname); 

000086 

000087 PROCEDURE Sc r eenCt r ( cont r f un: integer); 

000088 

000089 PROCEDURE Get Pr Devi c e( VAR Pr Devi c e: e name); 

000090 

000091 PROCEDURE PTr a n L i saChar ( t oTransi at e: boolean); 

000092 

000093 FUNCTION Pasl i bVersi on: INTEGER; 

000094 

000095 PROCEDURE BlocklOl nit; 

000096 

000097 PROCEDURE Bl ocklOdi si nit; 

000098 

000099 PROCEDURE I ockPasI i b( VAR errnum: integer); 

000100 

000101 PROCEDURE I oc kPas i o I i b( VAR errnum: integer); 

000102 

000103 PROCEDURE moveconsol e( VAR errnum: integer; appl consol e: consol edest ) ; 

000104 

000105 PROCEDURE Exec Reset ( VAR errnum: INTEGER; VAR exec f i I e : pathname; 

000106 stopexec: BOOLEAN); 
000107 

000108 FUNCTION ExecFlag: BOOLEAN; 
000109 

000110 PROCEDURE Out put Redi rect ( VAR errnum: INTEGER; VARoutfile: pathname; 

000111 stopoutput: BOOLEAN); 
000112 

000113 FUNCTION Out put RFI ag: BOOLEAN; 

000114 

000115 PROCEDURE DSPas I i bCal I ( VAR ProcParam: dsProcParam) ; 

000116 

000117 PROCEDURE % PDSPasi i bCal I (VAR ProcParam: pdsProcParam) ; 

000118 

000119 PROCEDURE % bl ocki osetupffi rstti me: boolean; VAR regis: envirRec); 

000120 

000121 FUNCTION % CkResi dent ( VAR regis: envirRec): boolean; 

000122 

000123 FUNCTION % p key pr e s s ( VAR f: fib): boolean; 

000124 

000125 PROCEDURE %_f uni t i ocal I ( uni t no: integer; bufaddr: longint; nbytes: integer; 

000126 blocknum: integer; mode: integer; unitcode: integer); 
000127 
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000128 FUNCTION % funitbusyfunitno: integer): boolean; 

000129 

000130 ****************************************************************** 

000131 * 

000132 * THAT' S ALL FOLKS . .. 

000133 * 

V v v X J "T 

000135 

End of File -■ Lines: 135 Characters: 3909 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 13 of 196 



Apple Lisa Computer Technical Information 



Fl LE: "LI SA LI B 3 CZCOMPAC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : CZCOMPAC 

USES {$U+} CZCOMPAC; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$1 FC OSBui It } 

{$U I i bsm/uni tstd. obj } unltstd, 

{$U I i bdb/dbenv. obj } dbenv, 

{$U I i bdb/dbdecll.obj } dbdecl 1, 

{$U I i bos/syscal I . obj } syscal I , 

{$U I i bos/ psyscal I . obj } psyscall, 

{$U I i bdb/l owl evel . obj } iowlevel, 

{$U I i bdb/ pool er. obj } pool er, 

{$U I i bdb/ heap, obj } heap; 
{$ELSEC } 

{$U obj : dbenv. obj } dbenv, 

{$U obj : dbdecl 1. obj } dbdecl 1, 

{$U obj : syscal I . obj } syscal I , 

{$U obj : I owl evel . obj } Iowlevel, 

{$U obj : pool er. obj } pool er, 

{$U obj : heap, obj } heap; 

{$ENDC } 

{$SETC debug : = false } 

Type 

stat es_de_compact = (no_try, firsttry); 

VAR 

pheap segment : I ongi nt; 

heapsegment: i nteger; 

heapsi ze: I ongi nt ; 

czone: zonedesc; 

compact state: states de compact; 

{$1 FC PRERELEASE } 

debug compact: boolean; 

{$ENDC } 

PROCEDURE heap. compact; 

FUNCTION i ni t compact _st at e: statesdecompact; 

FUNCTION retry co mpac t ( VAR errorcode: integer; 

VAR I ocal state: statesdecompact) : boolean; 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 
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000062 

End of File -- Lines: 62 Characters: 1552 
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Fl LE: "LI SA LI B 3 DBDECL1. TEXT" 



000001 

000002 * 

000003 * 

000004 * 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 






APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : DBDECL1 



USES {$U+} DBDECL1; 



I NTRI NSIC; 

I NTERFACE 

{$SETC OSBUI LT := TRUE } 

USES 

{$1 FC OSBUI LT } 

{$U I i bsm/uni tstd. obj } unitstd, 
{$U I i bdb/ dbenv. obj } dbenv, 
{$U I i bos/syscal I . obj } syscal I , 
{$U I i bos/ psyscal I . obj } psyscall, 
{$U I i bi n/i ntrl i bp. obj } international 

{ $ELSEC } 

{$U OBJ : dbenv. obj } dbenv, 

{$U I NTRLI B. obj } i nternati onal ; 

{SENDC } 



{$SETC PRERELEASE 

{$SETC DOLLARD 

{$SETC doTraceDB 

{$SetC f TraceDB 

Const 



FALSE } 

NOT fSymOk } 

TRUE} 

doTraceDB AND f TRACE} 



It 


= 




gt 


= 1 




eq 


= 2 




words i ze 


= 2 




e 1 e ms i z e 


= 1 


5; 


hal fel emsi ze 


- 




ma x r s i z e 


= 1 


000; 


ascendi ng 


= 




descendi ng 


= 1 




f typnul 1 


= 




f typi nt 1 


= 1 




f typi nt 2 


= 2 




f typi nt 4 


= 3 




f typi nt 8 


= 4 




f typf ptr 


= 5 




f typt i ck 


= 6 




f typpack2 


= 7 




f typst r 


= 8 




f typvstr 


= 9 




f typvnul 1 


= l 


0; 


f typsvst r 




l; 


f typsvnul 1 




2; 


f types 




2; 


nul 1 i nt 1 


= - 


128; 


nul 1 i n 1 2 


= ■ 


32768; 


nul 1 i nt 4 


= ■ 


2147483648; 


f ni 1 val 


= ■ 


i; 
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000062 


dbleft 


= 







000063 


dbr i ght 


= 






000064 


dbcent ered 


= 






000065 


dbwordwrap 


= 






000066 


dbnul 1 ok 


= 






000067 


dbdescend 


= 






000068 


dbi svi si bl e 


= 






000069 


none 


= 






000070 


ss 


= 






000071 


chk 


= 






000072 


zip 


= 






000073 


ph 


= 






000074 


dol 


= 






000075 


num 


= 






000076 


t i m 


= 






000077 


dt 


= 






000078 


lets 


= 






000079 


tick 


= 


10; 


000080 


OEMtick 


= 


11; 


000081 


OEMFIets 


= 


12; 


000082 


OEMSVIets 


= 


13; 


000083 


OEMFGen 


= 


14; 


000084 


OEMVGen 


= 


15; 


000085 


OEMSVGen 


= 


16; 


000086 


ecst r Bnd 


= 


40; 


000087 








000088 


TYPE 






000089 


short 


= 


■ 32767. .32767; 


000090 


pt r i nt eger 


= 


A i nteger; 


000091 


pt r 1 ongi nt 


= 


A l ongi nt ; 


000092 


f i 1 ept r 


= 


1 ongi nt ; 


000093 


ptrf i 1 ept r 


= 


A f i 1 ept r; 


000094 


ticket 


= 


RECORD 


000095 






hi gh: i nteger; 


000096 






1 ow: 1 ongi nt; 


000097 






END; 


000098 


ptrt i cket 


= 


A ticket; 


000099 


f st r i ng 


= 


PACKED ARRAY [0. .0] OF char; 


000100 


pt rf st ri ng 


= 


A f st r i ng; 


000101 


f i nt 8 


= 


RECORD 


000102 






hi gh: 1 ongi nt ; 


000103 






1 ow: 1 ongi nt; 


000104 






END; 


000105 


ptrf i nt 8 


= 


A f i nt 8; 


000106 


vfld 


= 


RECORD 


000107 






size: i nteger; 


000108 






offset: i nteger; 


000109 






END; 


000110 


pt rvf 1 d 


= 


A vfld; 


000111 


svfld 


= 


PACKED RECORD 


000112 






offset: 0..1023; 


000113 






si ze: 0. . 63; 


000114 






END; 


000115 


pt rsvf 1 d 


= 


A svf Id; 


000116 


bi t range 


= 


0. .15; 


000117 


el emset 


= 


SET OF bi t range; 


000118 


bits 


= 


ARRAY [0..0] OF el emset; 


000119 


pt r bi t s 


= 


"bits; 


000120 


f i el drange 


= 


f typnul 1 . . f types; 


000121 


ptrf i el d 


= 


RECORD 


000122 






CASE f i el drange OF 


000123 






f typnul 1 , f typi nt 1, f ty 


000124 






(ptr: ptrdata); 


000125 






f typi nt 2: 


000126 






( pi nt 2: pt ri nteger) ; 


000127 








f typi nt 4: 
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000128 




( pi nt 4: pt r 1 ongi nt 


000129 




f typi nt 8: 


000130 




( pi nt 8: pt r f i nt 8 ) ; 


000131 




f typf pt r: 


000132 




( pf pt r: pt rf i 1 ept r 


000133 




f typt i ck: 


000134 




( pt i ck: pt rti cket ) 


000135 




f typst r: 


000136 




( pst r: pt rf st ri ng) 


000137 




f typvst r, f typvnul 1 : 


000138 




(pvfld: ptrvfld); 


000139 




f typsvst r, f typsvnul 1 


000140 




(psvfld: ptrsvfld) 


000141 




END; 


000142 


bitoffset 


= RECORD 


000143 




nbi t s: bit range; 


000144 




sbit: bitrange; 


000145 




END; 


000146 


flddesc 


= RECORD 


000147 




offset: i nt eger; 


000148 




di recti on: byte; 


000149 




ftype: byte; 


000150 




CASE bool ean OF 


000151 




f al se: 


000152 




(size: i nteger) ; 


000153 




true: 


000154 




(bo: bitoffset) 


000155 




END; 


000156 


recpt r 


= ARRAY [0..0] OF flddesc; 


000157 


ptrrecpt r 


= A recpt r; 


000158 


VOheader 


= RECORD 


000159 




space: i nteger; 


000160 




versi on: i nteger; 


000161 




nf i el ds: short; 


000162 




nkeys: short; 


000163 




nsort: short; 


000164 




keybytes: short; 


000165 




recsi ze: i nteger; 


000166 




flags: elemset; 


000167 




END; 


000168 


header 


= RECORD 


000169 




space: i nteger; 


000170 




versi on: i nteger; 


000171 




nf i el ds: short; 


000172 




nkeys: short; 


000173 




nsort: short; 


000174 




keybytes: short; 


000175 




recsi ze: i nteger; 


000176 




flags: elemset; 


000177 




Mar ket Code: i nteger; 


000178 




END; 


000179 


checki nf o 


= ARRAY [1.. 5] OF i nteger; 


000180 


ecst r 


= st ri ng[ ecst r Bnd] ; 


000181 


pt rdbf i el d 


= A dbfield; 


000182 


dbfield 


= RECORD 


000183 




f 1 dsi ze: i nteger; 


000184 




n a me : short; 


000185 




display: short; 


000186 




hi ghval : short; 


000187 




1 owval : short; 


000188 




def val : short; 


000189 




edi t check: checki nf o; 


000190 




f 1 dtype: i nteger; 


000191 




options: elemset; 


000192 




reptype: short; 


000193 




offset: i nteger; 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 



Apple Lisa Computer Technical Information 

CASE bool ean OF 
f al se: 

(size: i nteger) ; 
true: 

(bo: bitoffset); 
END; 
mont hst r = st ri ng[ 9] ; 

I ongst r = st ri ng[ 255] ; 

PROCEDURE movelglpl, p2: ptrdata; nbytes: integer); 

PROCEDURE moverglpl, p2: ptrdata; nbytes: integer); 

PROCEDURE mo v e I f ( pi, p2: ptrdata; nbytes: integer); 

PROCEDURE mo v e r f ( p 1 , p2: ptrdata; nbytes: integer); 

FUNCTION ext ract ( pbyt e: ptrdata; nbit, sbit: integer): integer; 



PROCEDURE deposi t ( val ue: integer 
FUNCTION mu I t 4 2 4 ( m4 : fi leptr; m2 
FUNCTION c o mp 4 4 ( s 1 , s2: f i leptr) 



pbyte: ptrdata; nbit, sbit: integer); 

i nteger) : f i I ept r; 

i nteger; 

FUNCTION comphand( VAR si, s2: f i n 1 8 > : integer; 

FUNCTION d i v 4 2 4 < m4 : fileptr; m2: integer; VAR r2: integer): fileptr; 

PROCEDURE setsetlpset: ptrdata; I astel ement, nelements: integer); 

PROCEDURE cl earset ( pset : ptrdata; elements: integer); 

PROCEDURE cl earbi t ( pset : ptrdata; bit: integer); 

FUNCTION inpsetlpset: ptrdata; bit: integer): boolean; 

PROCEDURE setbi t( pset: ptrdata; bit: integer); 

FUNCTION pi nt ersect ( pset 1, pset 2 : ptrbits; setelements: integer): boolean; 

FUNCTION compare! descl, des c 2 : ptrrecptr; nfields: integer; precl, 
prec2: ptrdata) : i nteger; 

PROCEDURE ext ract key ( pdescl, pdes c 2 : ptrrecptr; nflds: integer; 

pentry: ptrdata; pwhere: ptrdata; vflds: integer); 

FUNCTION fi ndchangesl pdescl: ptrrecptr; nfields: integer; pbefore, 
pafter: ptrdata; pset: ptrbits): boolean; 

PROCEDURE Get RepTy pe( VAR result: integer; DataType: INTEGER; 

CheckArray: Checklnfo; VAR RepTy pe: Short; 
VAR Size: I NTEGER); 

PROCEDURE Val i dRepType( VAR result: integer; DataType: INTEGER; 

CheckArray: Checklnfo; RepTy pe: Short; 
Size: INTEGER); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 



End of File -- Lines: 257 Characters: 8002 
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Fl LE: "LI SA LI B 3 DBENV. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : DBENV 



USES {$U+} DBENV; 

I NTRI NSIC; 

I NTERFACE 

TYPE 
byte 
data 
pt rdat a 
hnddat a 
i nt dat a 
pt r i nt dat a 
hndi nt dat a 



■ 128.. 127; 

ARRAY [0..0] OF byte; 

"dat a; 

A ptrdata; 

ARRAY [0..0] OF i nteger; 

1 ntdata; 

A pt r i ntdata; 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS 



End of File 



Li nes: 28 Characters: 684 
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Fl LE: "LI SA LI B 3 EVENTS. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : EVENTS 

USES {$U+} EVENTS; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bos/ SysCal I 
bos/PSysCal I 
bhw/HWInt 
bsm/UnitStd 
bsm/UnitHz 
bqd/ Storage 
b p ml P mDe c I 
b p ml P mM 
bqd/ Qui ckDraw 
bf ml Font Mgr 



{$SetC wmOS 

{$SetC wmDebug 

{ $ S e t C wmSymbol s 

{ $ Se t C wmj our nal 

{ $ Se t C wmMonkey 

{ $ S e t C wmScr n 2 F i I 

{$SETC doTraceWM 

{$SetC fTraceWM : 



SysCal I , 

PSysCal I, 

HWInt, 

UnitStd, 

UnitHz, 

Storage, 

PmDecl , 

PmM, 

Qui ckDraw, 

Font Mgr; 



} 



= TRUE 
= FALSE } 
= fSymOk } 
= TRUE } 
= FALSE } 

:= TRUE } 
= TRUE} 

doTraceWM AND f TRACE} 



CONST 
ni I Ev 
butto 
butto 
key Do 
folde 
folde 
folde 
folde 
filer 
abort 
diedE 
pri va 
pri va 
pri va 
diskE 
catal 
diskl 
diskl 
d i s k 2 
disk2 
paraC 
butto 
mouse 
power 
mi cro 
mi cro 



ent = 0; 

nDown =1; 

nUp = 2; 

wn =3; 
r Act i vate = 4; 
r Dead i vat e = 5; 

rUpdate = 6; 

r Moved = 7 

Event = 8 

Event = 9 

vent = 10 

tel = 11 

te2 = 12 

te3 = 13 

vent = 14 

ogE vent = 15 

I nCode = 1 

OutCode = 2 

I nCode = 3 

OutCode = 4 

ode = 5 

nCode = 6 

Code = 7 

Code = 8 

I nCode = 11; 

llnCode = 12; 
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000062 


mi cro2l nCode 


= 13; 




000063 


mi cro3l nCode 


= 14; 


000064 


mi croOut Code 


= 15; 


000065 


mi crolOut code 


= 16; 


000066 


mi cro20ut Code 


= 17; 


000067 


mi cro30ut Code 


= 18; 


000068 


opt i onCode 


= 104; 


000069 


shi f tCode 


= 126; 


000070 


commandCode 


= 127; 


000071 


ni 1 User Dat a 


= 0; 


000072 


ni 1 Process 


= 0; 


000073 


why Not 


= 0; 


000074 


why C 1 i ck 


= 300; 


000075 


why CI ose 


= 301; 


000076 


why Di sk 


= 302; 


000077 


why Di ed 


= 303; 


000078 


why F i nd 


= 304; 


000079 






000080 


TYPE 




000081 


KeyCode 


= 0..127; 


000082 


Keyset 


= SET OF KeyCode; 


000083 


Processl d 


= Longl nt ; 


000084 


Wi ndowPt r 


= GrafPtr; 


000085 


Event Handl e 


= A EventPtr; 


000086 


Event Ki nd 


= 1 NTEGER; 


000087 


Event Ptr 


= "Event Record; 


000088 


Event Record 


= RECORD 


000089 




who: Wi ndowPt r ; 


000090 




what : Event Ki nd; 


000091 




where: Poi nt; 


000092 




when: Longl nt ; 


000093 




why: INTEGER; 


000094 




shi f t Key : BOOLEAN; 


000095 




alphaKey: BOOLEAN; 


000096 




codeKey: BOOLEAN; 


000097 




appleKey: BOOLEAN; 


000098 




mouseKey: BOOLEAN; 


000099 




repeat Key: BOOLEAN; 


000100 




keyCap: KeyCode; 


000101 




ascii: CHAR; 


000102 




toProcess: Processld; 


000103 




fromProcess: Processld; 


000104 




fromFol der: Wi ndowPt r; 


000105 




user Dat a: Longl nt ; 


000106 




END; 


000107 






000108 


VAR 




000109 


wmHeap: 


Thz; 


000110 


deskPort : 


GrafPtr; 


000111 


me n u F o 1 d e r : 


Wi ndowPt r 




000112 


alert Fol der : 


Wi ndowPt r 




000113 


di al ogFol der: 


Wi ndowPt r 




000114 


f i 1 er Fol der: 


Wi ndowPt r 




000115 


scrapFol der: 


Wi ndowPt r 




000116 


act i ve Fol der: 


Wi ndowPt r 




000117 


key Wi ndow: 


Wi ndowPt r 




000118 


f i 1 erProcess: 


Processl d 




000119 


scrapProcess: 


Processl d 




000120 


act i veProcess 


Processl d; 


000121 


keyProcess: 


Processl d; 


000122 


cl i ckDel ay: 


Longl nt ; 


000123 


caret OnTi me: 


Longl nt ; 


000124 


caret Of f Ti me: 


Longl nt ; 


000125 


event Debug: 


BOOLEAN; 


000126 


t rapKeys: 


KeySet; 


000127 


keyTrapProc: 


ProcPt r; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



t rapPrcs: Processl d; 

CA StartFlag: BOOLEAN; 

queueLocked: BOOLEAN; 

recordFlag: BOOLEAN; 

pi ay F I ag: BOOLEAN; 

monkeyFlag: BOOLEAN; 

monkeyWorld: BOOLEAN; 

wmsparel: LONGIN1 

wmspare2: LONGIN1 

wmspare3: LONGIN1 

wmspare4: LONGIN1 

wmspare5: LONGIN1 

FUNCTION Abort: BOOLEAN; 

FUNCTION Button: BOOLEAN; 

PROCEDURE Chec kEvent s ( updat eOK: BOOLEAN); 

PROCEDURE Del et eEvent ( evHandl e: Event Handl e) ; 

FUNCTION El apsTi me: Longlnt; 

FUNCTION Event Avai I : BOOLEAN; 

FUNCTION Fi rst Event : Event Handl e; 

PROCEDURE Get Event ( VAR event: Event Record) ; 

PROCEDURE Get EvFrom( f romProcess: ProcessID; VAR event: Event Record) ; 

PROCEDURE Get Keys( VAR keys: KeySet); 

PROCEDURE Get Mouse( VAR pt: Point); 

FUNCTION ImActive: BOOLEAN; 

PROCEDURE I ni t Events; 

PROCEDURE Let Ot hersRun; 

FUNCTION Next Event ( evHandl e: Event Handl e) : Event Handl e; 

FUNCTION PeekEvent ( VAR event: Event Record) : BOOLEAN; 

PROCEDURE Pri ntScreen; 

PROCEDURE PushEvent ( VAR event: Event Record) ; 

PROCEDURE SendE vent ( VAR event: Event Record; toPrcs: Processld); 

FUNCTION Sti I I Down: BOOLEAN; 

FUNCTION Ti me: Longl nt; 

PROCEDURE WakeUpHead; 
{ $ I F C wmj o u r n a I } 

PROCEDURE St art PI aybac k( f i leName: PathName; journalMode: INTEGER); 

PROCEDURE Start Rec or di ng(fi leName: PathName; journalMode: INTEGER); 

PROCEDURE StopPlayback; 

PROCEDURE St opRec or di ng; 

{$ENDC } 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 23 of 196 



Apple Lisa Computer Technical Information 

000194 

U U U 1 9 J 

000196 * 

000197 * THAT' S ALL FOLKS . .. 

000198 * 

000199 ****************************************************************** 

000200 

End of File -- Lines: 200 Characters: 5104 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FEDEC 

USES {$U+} FEDEC; 

I NTRI NSIC; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



I i bsm/ uni t st d. obj } Uni t St d, 

I i bsm/ uni t hz. obj } Uni t Hz, 

I i bqd/ Qui ckDraw} QuickDraw, 

I i bf m/ Font Mgr } Font Mgr, 

I i bqd/ Storage} Storage, 

I i bdb/ d ben v } dbenv; 
{$SETC doTraceFE : = TRUE} 
{$SetC f TraceFE := doTraceFE AND f TRACE} 



CONST 

f IdFul I = 1 

f IdProtected = 2 

nul I Sel ect = 3 

i nvScrapType = 4 

i nvOpType = 5 

noRoomFor Runs = 6 

i nval i dEdi t = 7 
FEal I ocat i onFai I ed = 8; 

FENotUndoable = 9 

left = 1 

ri ght =2 

center = 3 

set Nor ma I =1 

set Under I i ne =2 

set Bol d =3 

set 1 1 al i cs =4 

setOut I i ne =5 

set Shadow = 6 

s et Font = 7 

setToModern = 8 

setToCI assi c =9 

noOp = 

cut Op =1 

copyOp = 2 

pasteOp = 3 

chl nputOp = 4 

cl earOp =5 

for mat Op =6 
val ueToFor mul aOp = 7 
f or mul aToVa I ueOp = 8 

MaxFi eldLngth = 1000 



TYPE 
Tstr 
Ttri pi e 
i nt erval 



st ri ng[ 50] ; 

A Tstr; 

RECORD 

I pFst : i nteger; 
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1 pLi m: 1 nt eger; 


000063 




END; 


000064 


TtySel 


= (tySel Pt, tySelWd, tySel P 


000065 


TtyHi 1 ight 


= ( t y Hi Ni 1 , t y Hi 1 nvert, tyh 


000066 




t y Hi Di mCaret ) ; 


000067 


txSel 


= RECORD 


000068 




i nt : i nt erval ; 


000069 




tySel: TtySel; 


000070 




tyHilight: TtyHilight; 


000071 




END; 


000072 


hndRuns 


= A ptrRuns; 


000073 


pt r Runs 


= A runs; 


000074 


run 


= RECORD 


000075 




1 pFst : i nteger; 


000076 




f ont : i nteger; 


000077 




face: Style; 


000078 




END; 


000079 


runs 


= ARRAY [0..0] OF run; 


000080 


field 


= RECORD 


000081 




coords: Rect; 


000082 




maxLen: i nteger; 


000083 




growLen: i nteger; 


000084 




cur Len: i nteger; 


000085 




al i gn: QDByte; 


000086 




drawPad: QDByte; 


000087 




curVal ue: hndDat a; 


000088 




maxFmts: i nteger; 


000089 




growFmt s: i nteger; 


000090 




cur Fmts: i nteger; 


000091 




f mt 1 nf o: hndRuns; 


000092 




protect: boolean; 


000093 




END; 


000094 


pt r Fi el d 


= A field; 


000095 


hndFi el d 


= A ptrFi el d; 


000096 


f iel dState 


= RECORD 


000097 




select: txSel; 


000098 




anchor: t xSel ; 


000099 




sel ectOn: bool ean; 


000100 




vi sCaret : bool ean; 


000101 




selectRect: Rect; 


000102 




bsPt r : i nteger; 


000103 




space: i nterval ; 


000104 




val i d: bool ean; 


000105 




val i dLp: i nteger; 


000106 




newS el: boolean; 


000107 




changed: boolean; 


000108 




END; 


000109 


ptrFState 


= A f iel dState; 


000110 


hndFState 


= A ptrFState; 


000111 


undol nf o 


= RECORD 


000112 




cur Fi el d: hndFi el d; 


000113 




curFS: hndFState; 


000114 




oldSelFId: hndFi el d ; 


000115 




oldSelFS: hndFState; 


000116 




select: txSel; 


000117 




endselect: txSel; 


000118 




anchor: t xSel ; 


000119 




endanchor : txSel ; 


000120 




oldValFId: hndFi el d; 


000121 




oldValFS: hndFState; 


000122 




cur Len: i nteger; 


000123 




curVal ue: hndDat a; 


000124 




cur Fmts: i nteger; 


000125 




f mt 1 nf o: hndRuns; 


000126 




1 astOp: i nteger; 


000127 




END; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 



pt r Undol nf o 
hndUndol nf o 
HndScrap 
PtrScrap 
Sera pRec 



"undol nf o; 
^pt r Undol nf o; 

A ptrScrap; 
A ScrapRec; 
RECORD 

Scrapf I d: Field; 

i sWord: bool ean; 
END; 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 



Li nes: 142 Characters: 4377 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : Fl ELDEDI 

USES {$U + } Fl ELDEDI ; 

I NTRI NSIC; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$S 
{$S 



bsm/ uni t St d 
bsm/ uni t Hz} 
bq d / Storage 
bqd/ Qui ckDr 
bf ml Font Mgr 
bos/ SysCal I 
bwm/ Events} 
bwm/ Fol ders 
bsb/WMLStd} 
bsb/WMLSb} 
bdb/ dbenv} 
bfe/FEDec} 
bsu/ Scrap} 
bsu/UnitFmt 
bpm/ PmDec I } 
bpr/ PrStdl n 
bsu/ Uni t Cs } 
bf e/ Fl dut } 
C FLDDEBUG : 
C FLDSYMBOLS 



} UnitStd, 
Uni t Hz, 

} Storage, 
aw} Qui ckDraw, 
} Font Mg r , 
} SysCal I , 

Events, 
} Fol ders, 

WMLSt d, 
WMLSb, 
dbenv, 
FEDec, 
Scrap, 
} Uni tFmt, 

PmDec I , 
f o} PrStdl nf o, 

Unites, 
FldUT; 
= FDBGOK } 

:= FSYMOK } 



CONST 

MaxFont Number = 24; 
{$1 FC NOT FLDDEBUG } 
f IdTest = false; 

{$ENDC } 

VAR 

{$1 FC FLDDEBUG } 

f I dTest : bool ean; 

{$ENDC } 

ToModern, ToClassic: ARRAY [ 0. . MaxFont Number] OF - 128. . 127; 

ScrapHnd: HndScrap; 

fldHeap: THz; 

f mt Si ze: i nt eger; 

ul nf o: undol nf o; 

SubFont : Bool ean; 

SubDev: I nteger; 

PROCEDURE F E I n i t ( h z : THz; passtrpl: Ttriple; VAR errnum: integer); 

PROCEDURE FETermi nate; 
{$1 FC FLDDEBUG} 

PROCEDURE Set F I dTest ( test On: boolean); 

PROCEDURE DumpFldl nfofhf: hndField; hfs: hndFState); 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



{SENDC} 

PROCEDURE LdFESeg; 

PROCEDURE UseSubst i t uteFont ( Subst i t ut e: Boolean; DevtoSub: Integer); 

PROCEDURE Set FCoo r ds ( hf : hndField; hfs: hndFState; c: Rect); 

PROCEDURE Set F Al i gn( hf : hndField; hfs: hndFState; a: byte); 

PROCEDURE Set FPad( hf : hndField; hfs: hndFState; pad: byte); 

PROCEDURE Set FPr ot ect ( hf : hndField; hfs: hndFState; p: boolean); 

PROCEDURE I ni t FSt at e( hf : hndField; hfs: hndFState); 

FUNCTION Creat e F i el d( c: Rect; I Len, gLen: Integer; a: byte; pad: byte; IFmts, 
gFmts: Integer; fontNum: Integer; p: boolean): hndField; 

PROCEDURE RemoveFi el d(hf : hndField); 

FUNCTION Fmt FromLpI hf : hndField; hfs: hndFState; I p: Integer): Integer; 

PROCEDURE FmtFroml n t ( hf : hndField; hfs: HndFState; Int: Interval; 
VAR Plain: boolean; VAR result: run); 

PROCEDURE Set Runl nterval ( hf : hndField; hfs: hndFState; fontNum: Integer; 

format : I nt eger; I nt : I nterval ; 
VAR er r Num: I nteger ) ; 

PROCEDURE Set RunFor mat ( hf : hndField; hfs: hndFState; fontNum: Integer; 

format: Integer; VAR errNum: Integer); 

PROCEDURE UpdateRunfhf : hndField; hfs: hndFState; fontNum: Integer; 
format: Integer; VAR errNum: Integer); 

PROCEDURE Vert Coords) hf : hndField; VAR ascent, descent: Integer); 

PROCEDURE MoveFiel d(hf : hndField; hfs: hndFState; dx: Point); 

PROCEDURE DrawFlel d(hf: hndField; hfs: hndFState; showSel ect , 
erase: boolean); 

PROCEDURE DrawFI d At ( hf : hndField; hfs: hndFState; dx: Point; showSel ect , 
erase: boolean); 

PROCEDURE SetSel (hf: hndField; hfs: hndFState; IpFst: Integer; 
IpLIm: Integer; s e I Type: TtySel); 

PROCEDURE Sel ect Al I (hf: hndField; hfs: hndFState; VAR t : Integer); 

PROCEDURE ExItFleldfhf: hndField; hfs: hndFState); 

PROCEDURE Compact Fi el d( hf : hndField); 

PROCEDURE ErrorSel ect ( hf : hndField; hfs: hndFState; IpFst: Integer; 

IpLIm: Integer; VAR t: Integer); 

PROCEDURE Hi I i g ht Sel ( hf : hndField; hfs: hndFState; f Show: boolean); 

PROCEDURE ChangeSel Hi I i ght ( hf : hndField; hfs: hndFState; toDim: boolean); 

FUNCTI ON LpFromXfx: integer; hf: hndField; hfs: hndFState; 
sel type: ttysel ) : i nteger; 

PROCEDURE LwFromLpI or i g: integer; hf: hndField; hfs: hndFState; 
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000168 
000169 
000170 
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000184 
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000186 
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VAR I Word: interval; VAR FoundWord: boolean); 

FUNCTION Co mpr e s s ed L p( I p : integer; hf: hndField; hfs: hndFState; 

VAR val i d: bool ean) : i nteger; 

FUNCTION ExpandedLpI I p: integer 

PROCEDURE RepSel ec t ( I p: i nteger 



hf: hndField; hfs: hndFState): integer; 
hf: hndField; hfs: hndFState); 
hndField; hfs: hndFState; VAR n: Rect; 



PROCEDURE Selectfdxy: Poi nt; hf 
VAR t: i nteger) ; 

PROCEDURE RepWordSel ect ( i nt: interval; hf: hndField; hfs: hndFState); 

PROCEDURE Sel ect Wor d( dxy: Point; hf : hndField; hfs: hndFState; VAR n: rect; 
VAR t : i nteger) ; 

PROCEDURE RepGrowSel (chl p: integer; hf: hndField; hfs: hndFState); 

PROCEDURE GrowSel (dxy: Point; hf: hndField; hfs: hndFState; VAR n: Rect); 

PROCEDURE Caret Erased( hf : hndField; hfs: hndFState); 

PROCEDURE St art Bl i nk( VAR t: integer); 

PROCEDURE Bl i nkCaret ( hf : hndField; hfs: hndFState; VAR t : integer); 

PROCEDURE Caret On( hf : hndField; hfs: hndFState); 

PROCEDURE InsChfch: char; hf: hndField; hfs: hndFState; VARerrNum: integer); 

PROCEDURE Backspace! hf: hndField; hfs: hndFState; VAR errNum: integer); 

PROCEDURE Forwardspacef hf : hndField; hfs: hndFState; VARerrNum: integer); 

PROCEDURE BackWord( hf : hndField; hfs: hndFState; VARerrNum: integer); 

PROCEDURE For wardWord( hf : hndField; hfs: hndFState; VARerrNum: integer); 

PROCEDURE DrawScrapf VAR errnum: integer); 

PROCEDURE Cut Copy Fi el d( hf : hndField; hfs: hndFState; fCut: boolean; 

flntoScrap: boolean; VAR errNum: integer); 

PROCEDURE Pa s t e Fi el d( hf : hndField; hfs: hndFState; VARerrNum: integer; 
pasteFmt: boolean; PasteLimit: integer); 



PROCEDURE UndoEdi t ( hf : hndField; hfs: hndFState; VARerrNum: 
PROCEDURE CI ear Fi el d( hf : hndField; hfs: hndFState; VARerrNum: 
FUNCTION qualifiesflp: integer; hf: hndfield; hfs: hndfstate) 



nteger); 
i nteger); 
bool ean; 



******************************************************************************* 

* 

* 

* 



THAT' S ALL FOLKS . .. 



End of File -- Lines: 186 Characters: 5951 
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000007 
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000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : F I LEI 

USES {$U + } FILEIO; 

{$1 FC isl ntrin} I NTRI NSIC; {$ENDC} 

I NTERFACE 

USES 

{$1 FC SrcOnOS } 

(*$U OBj/PASDEFS.OBj *) PasDefs, 

(*$U OBJ / MEMMAN. OBJ *) Memman; 
{$ELSEC } 

(*$U OBJ : PASDEFS. OBJ *) PasDefs, 

(*$U OBJ : MEMMAN. OBJ *) Memman; 
{$ENDC } 

CONST 



MaxBuf f Top 

Buff Block 

Nul I 

CtrIC 

Left 

Down 

Up 

Right 

CR 

Esc 

TYPE 
Byte 

SetOfChar 
Ptr 

Fi I eByte 
Buffer 
Buff Ptr 
Fi I eHandl e 
Fi I eDesc 



32767; 
512; 

i i , 
I 

3; 

8; 

10; 

11; 

12; 

13; 

27; 



0. .255; 

SET OF Char; 

A l nteger; 

■ 128. .127; 

ARRAY [ 0. . MaxBuf f Top] OF Fi I eByte; 

^Buffer; 

A Fi I eDesc; 

RECORD 

Info: FILE; 

01 d F i I e: bool ean; 

NewLast Bl k: bool ean; 

Buff: BuffPtr; 

MaxBlks, CurBlks: Integer; 

Bl ockNrO: I nteger; 

Buff Top, Buffi dx: I nteger; 

BuffChd, ReadEOF: boolean; 

Last Bl k: I nteger; 
END; 



PROCEDURE I ni t F i I e( VAR Fi lePtr: Fi I eHandl e; nBlocks: Integer) 
FUNCTION I And ( I , j : I nteger): I nteger; 
FUNCTION I Or ( I , J : I nteger): I nteger; 
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000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
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000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 



FUNCTION I XOr ( I , J : I nteger): I nteger; 

FUNCTION I Not ( I : I nteger): Integer; 

FUNCTION PeekBfP: Ptr; Ski pB: Integer): Byte; 

PROCEDURE PokeB(P: Ptr; Ski pB: Integer; B: Byte); 

PROCEDURE ToHex(P: Ptr; Ski pN, NrN: Integer; VAR S: LString); 

PROCEDURE Wri teHex( VAR F: Text; P: Ptr; Ski pN, NrN: Integer); 

PROCEDURE OpenFi I e( VAR Fi lePtr: FileHandle; FileName: LString; 
NewFi I e: bool ean) ; 

PROCEDURE ZeroFi I e E n d ( Fi I ePtr: FileHandle); 

PROCEDURE CI oseFi I e(Fi I ePtr: FileHandle; Save: boolean); 

PROCEDURE Get F i I ePt r ( Fi lePtr: FileHandle; VARBytePtr: Longlnt); 

PROCEDURE Set F i I ePt r ( Fi lePtr: FileHandle; BytePtr: Longlnt); 

PROCEDURE Ski pBytesfFi I ePtr: FileHandle; NrBytes: Longlnt); 

FUNCTION Fi leEOF(Fi lePtr: FileHandle): boolean; 

PROCEDURE CopySeqd n F i I e, Out File: FileHandle; NrBytes: Longlnt); 

PROCEDURE Get Seq( Fi lePtr: FileHandle; Stuff: Ptr; NrBytes: Longlnt); 

PROCEDURE Get By t e( Fi I ePtr: FileHandle; VAR B: Byte); 

PROCEDURE Get Wor d( Fi I ePtr: FileHandle; VAR W: Integer); 

PROCEDURE Get Long( Fi lePtr: FileHandle; VAR L: Longlnt); 

PROCEDURE Put Seq( F i I ePtr: FileHandle; Stuff: Ptr; NrBytes: Longlnt); 

PROCEDURE Put Byt e( Fi lePtr: FileHandle; B: Byte); 

PROCEDURE Put Wo r d ( Fi lePtr: FileHandle; W: Integer); 

PROCEDURE Put Long( Fi lePtr: FileHandle; L: Longlnt); 

******************************************************************************* 



* 
* 
* 



THAT' S ALL FOLKS 



End of File 



Li nes: 113 Characters: 3042 
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000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : Fl LERCOM 

USES {$U + } Fl LERCOM; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 

{$U I i bos/SysCal I 

{$U I i bos/PSysCal I 

{$U I i bsm/Uni tStd 

{$U I i bsm/Uni t Hz 

{$U I i bqd/ Storage 

{$U I i bqd/ Qui ckDraw 

{$U I i bqd/ Graf Uti I 

{$U I i bsb/WmlStd 

{$U I i bsb/WmlSb 

{$U I i bf m/ Font Mgr 

{$U I i bwm/ Events 

{$U I i bwm/ wi ndows 

{$U I i bwm/ f ol ders 

{$U I i bsu/ Scrap 
{$SETC f c Debug 
{$S 



} SysCal I, 

} PSysCal I, 

} UnitStd, 

} UnitHz, 

} Storage, 

} Qui ckDraw, 

} Graf Uti I, 

} Wml Std, 

} Wml Sb, 

} FontMgr, 

} Events, 

} Wi ndows, 

} Fol ders, 

} Scrap; 
fDbgOk } 



ETC f cSymbol s = f SymOk } 



CONST 
scrap 
cmApp 
cml co 
nameS 
f ceNo 
fceAb 
f ceBa 
f ceBa 
f ceCa 
f ceCa 
feel n 
f ceNo 
f ceOu 
f ceBa 
f ceBa 
f ceDu 
f eel n 
fceNa 
cmdCI 
cmdCI 
deskT 
wri t e 
graph 
mat r i 
drawT 
I i st T 
balls 
manua 
proj e 



Ref 

I nfo 

nl nf o = 

eperator = 

Errors = 

orted = 

dEvent Type 

dReason = 

nt Read = 

ntWrite = 

Use 

Me mo r y = 

tOf Di skSpac 

dLDSN 

d Pas sword = 

pi i cat eName 

val i dParam 

meNot Found 

ose = 

osAII 

ool = 

Tool 

Tool 

xTool = 

ool = 

ool = 

Tool 

ITool 

ctTool 



1268; 

1269; 

'<'; 

0; 

4033; 

= 4025; 

4026; 

4027; 

4028; 

4029; 

4030; 

e = 4031; 

4032; 

4033; 

= 890; 
= 971; 
= 972; 

001; 

002; 
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termEmTool =10 

conf i g To o I = 11 

cal cTool = 12 

cl ockTool = 13 

Mwr i t e To o I = 14 

Mpai nt Tool = 15 

MdrawTool = 16 

maxKnownTool = 16 

i conWi dt h =48 

i conHt = 32 

ni I Ki nd =0 

f ileKi nd = 1 

deskKi nd = 2 

f ol der ki nd =3 

doc Ki nd =4 

docPad = 5 

t rashKi nd =6 

pri nt Ki nd =7 

cal c Ki nd =8 

t rayKi nd =9 

computer Ki nd = 10 

c omp 2 Ki nd =11 

i nBoxlKi nd = 12 

i nBox 2 Ki nd = 13 

out BoxlKi nd = 14 

out Box2Ki nd = 15 

folderPad = 16 

cli pBdKi nd = 17 

clockKi nd = 19 

I etterKi nd = 20 

I etterPad = 21 

tool Ki nd = 24 

d i s k Ki nd = 25 

disklKind = 26 

di sk2Ki nd = 27 

drawer Ki nd = 28 

prof i I e Ki nd = 29 

pri amKi nd =30 

si o t Ki nd = 31 

slotlKi nd = 32 

s I o 1 2 Ki nd = 33 

s I ot 3 Ki nd = 34 

MdocKi nd = 35 

MdiskKind = 36 

I ast Ki nd = 36 



TYPE 



Fil i ngCmd = LONGI NT; 

FilerOp = (fcClose, fcCopy, fcDfClose, fcNone, fcPrint, fcPut, 

f c Res u me, fcShred, fcSuspend, fcTermi nate, 
f cNameToPref i x, f cPref i xToName, fcDuplcon, fcMakeTool); 
FReply = (dfClosed, df Not CI os ed, docClosd, docNot CI osed, docXfered, 

docNot Xf ered, I ni t Fai I ed) ; 
FReason = (all OK, badData, cantConvert, c ant Read, cantWrite, 

dirtyDoc, i nternal Error, needToConvert , newerDoc, 
noDi skSpace, noMemory, noMoreDocs, okButNoMore, 
doc Put Bac k, aUserAbort, wrongPasswor d) ; 
Filer Ext = RECORD 

theFlrOp: FilerOp; 
theErr: INTEGER; 
theOffset: INTEGER; 
theDf: INTEGER; 
t hePassword: EName; 
thePrefix: Pathname; 
t he Res u 1 1 : Pathname; 
END; 
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000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



FCopyOp 
Obj ect Ki nd 

Tl conRef 



PI conRef 
HI conRef 
TAppI nf o 



PAppI nf o 
HAppI nf o 
h F i I er Ext 

pFi I er Ext 
Repl yPtr 
Repl y 



(fcDocCopy, fcDocMove, f c Doc Backup) ; 

ni I Ki nd. . I ast Ki nd; 

RECORD 

ki nd: Obj ect Ki nd; 

tool ID: LONGINT; 

userName: STRING! 80]; 

password: EName; 

di skName: Pat hname; 
END; 

A TI conRef; 
A PI conRef; 
RECORD 

wi ndow: Wi ndowPt r; 

proc: INTEGER; 
END; 

A TAppl nf o; 
A PAppl nf o; 
A pFi I er Ext ; 
A Fi I er Ext; 
A Repl y; 
RECORD 

t he Re pi y : F Re pi y ; 

theReason: FReason; 
END; 



VAR 



i conDat a : ARRAY [ Obj ect Ki nd] OF CHAR; 

iconMask: ARRAY [ Obj ect Ki nd] OF CHAR; 

iconOverlay: ARRAY [ deskTool .. maxKnownTool ] OF CHAR; 

i conBoxes : ARRAY [ObjectKind] OF Rect; 

tinyData: ARRAY [ObjectKind] OF CHAR; 

tinyMask: ARRAY [ObjectKind] OF CHAR; 

tinyOverlay: ARRAY [ deskTool .. maxKnownTool ] OF CHAR; 

PROCEDURE Copy Doc ( VAR error: INTEGER; fromPrefix, toPrefix: Pathname; 

useLdsn: INTEGER; theOp: FCopyOp; VARdocSize: LONGINT); 

PROCEDURE DoFi I i ngCmd( whi chCmd: FilingCmd); 

PROCEDURE Get AddPar ms ( VAR error: INTEGER; theEvent: E vent Rec or d; 

VAR t he F i I er Ext : Fi I erExt); 

PROCEDURE Tel I Fi I er ( VAR error: INTEGER; what: FReply; why: FReason; 
my Fo I der: Wi ndowPt r ) ; 

PROCEDURE NameToPref ix( VAR err, offset: INTEGER; my F o I der: Wi ndowPt r ; 

name: Pathname; VAR prefix: Pathname); 

PROCEDURE Pref ixToName( VAR err, offset: INTEGER; my F o I der: Wi ndowPt r; 

prefix: Pathname; VAR name: Pathname); 

PROCEDURE St art I conRef ( VAR err: INTEGER; myWi ndow: Wi ndowPt r ) ; 

PROCEDURE Addl conRef (iconl nfo: Tl conRef ) ; 

PROCEDURE Endl conRef ; 

PROCEDURE DrawRef Scrap) VAR err: INTEGER); 

PROCEDURE Readl conRef s( VAR err: INTEGER; VAR proc: ProcessID; 

VAR window: Wi ndowPt r ; VAR identity: Ti conRef; 
I DProc: TProc) ; 

PROCEDURE CopyDi skf i I e( VAR err: INTEGER; source, destination: Pathname; 

bufrAdrs, bufrSize: LONGINT; theOp: FCopyOp; 
VAR os Er r : I NTEGER); 
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000195 PROCEDURE I nitFC; 

000196 

000198 * 

000199 * THAT' S ALL FOLKS . .. 

000200 * 

000202 

End of File -- Lines: 202 Characters: 6379 
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000043 
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000045 
000046 
000047 
000048 
000049 
000050 
000051 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FLDUT 

USES {$U+} FLDUT; 

I NTRI NSIC; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$S 



ETC 



bsm/ uni tstd 
bsm/ uni t hz. 
bqd/ Qui ckDr 
bf ml Font Mgr 
bqd/ Storage 
bos/ SysCal I 
bwm/ Events} 
bdb/ d ben v } 
bfe/FEDec} 
bpm/ pmdecl } 
bpr/ PrStdl n 
bsu/ uni t f mt 
bsu/ uni tcs. 
bsu/ scrap, o 
FLDUTDBG : 



. obj } UnitStd, 
obj } Uni t Hz, 

aw} Qui ckDraw, 
} Font Mg r , 
} Storage, 
} SysCal I , 

Events, 
dbenv, 
FEDec, 

p md e c I , 
f o} PrStdl nf o, 
. obj } Uni tf mt , 
obj } Unites, 
bj } Scrap; 
= FDBGOK} 



TYPE 

PFIdUT 
TFIdUT 



A TFIdUT; 
RECORD 

cs: Tcs; 

UTfield: hndfield; 
END; 



FUNCTION Creat eFI dUt ( St reamHeap: THz): TB; 

PROCEDURE SeqLpdFI d(Lpd: TLpd; VARachad: Tachad); 
{$1 FC FLDUTDBG} 

PROCEDURE PxFldUTfhcs: thes); 
{SENDC} 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS 



End of File 



Li nes: 51 Characters: 1275 
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000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
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000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FMGRUTI L 

USES {$U + } FMGRUTI L; 

{$SETC fmOS := TRUE} 
I NTRI NSIC; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/UnitStd} UnitStd, 
bsm/UnitHz} UnitHz, 
bos/SysCal I } SysCall, 
bqd/ Qui ckDraw} QuickDraw, 
bf m/ Font Mgr } Font Mg r , 
bqd/ Storage} Storage; 
{$SETC f mdebug : = fdbgok} 
{ $ S E T C f mSymbol s : = f symok} 



FUNCTI ON Get I c on( f a m: Tfam; cc: TCc; VARrSrc: Rect; VARbmSrc: BitMap; 
VAR cError: TC): TF; 

PROCEDURE Drawl con( f am: Tfam; rDst: Rect; cc: TCc; cmode: TC; 
VAR cError: TC); 

PROCEDURE Get Patt er n( f am: Tfam; ccPat: TCc; VAR pat: Pattern; 
VAR cError: TC); 

PROCEDURE Get Cursor ( f am: Tfam; ccData, ccMask: TCc; VAR curse: Cursor; 
VAR cError: TC); 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS 



End of File ■■ Lines: 43 Characters: 1176 
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000001 
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000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FOLDERS 

USES {$U+} FOLDERS; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 

{$U I i bhw/HWInt 
{$U I i bsm/Uni tStd 
{$U I i bsm/Uni t Hz 
{$U I i bqd/Storage 
{$U I i bqd/ Qui ckDraw 
{$U I i bf m/ Font Mgr 
{$U I i bos/SysCal I 
{$U I i bwm/ Events 
{$1 FC wmOS } 
{$U I i bpm/PmDecl 
{$U I i bpm/ Pmm 
{$ENDC } 
{$U I i bwm/ Wi ndows 

CONST 

maxWi ndWidth = 720; 

maxWi ndHei ght = 364; 

mi nWi ndWi dth = 50; 

mi nWi ndHei ght = 14; 



HWI nt, 
UnitStd, 
UnitHz, 
Storage, 
Qui ckDraw, 
Font Mgr, 
SysCall, 
Events, 

PmDecl , 
Pmm, 

} Wi ndows; 



nol con 

TYPE 

Wi ndowl nf o 



255; 



RECORD 

visible: BOOLEAN; 

hasTab: BOOLEAN; 

okMove: BOOLEAN; 

okGrow: BOOLEAN; 

okFront: BOOLEAN; 

okClose: BOOLEAN; 

okActivate: BOOLEAN; 
END; 



PROCEDURE Begi nUpdat e(f ol der: WindowPtr); 

PROCEDURE Di a I ogHei ght ( he i ght : INTEGER; fUpdate: BOOLEAN); 

PROCEDURE Di sposeFol der ( f ol der: WindowPtr); 

PROCEDURE EndUpdat e( f ol der : WindowPtr); 

PROCEDURE Fl ushl nput ( wi ndow: WindowPtr); 

PROCEDURE Fl ushWi ndow( wi ndow: WindowPtr); 

PROCEDURE Fl ushProcessf process: ProcessID); 

PROCEDURE Fol derSi ze(fol der: WindowPtr; width, height: INTEGER; 
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000126 
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fUpdate: BOOLEAN); 

FUNCTION Get Fl d r Ref Con( f older: WindowPtr): Longlnt; 

PROCEDURE Get Fl d r T i tl e(fol der: WindowPtr; VAR title: St r 255) ; 

PROCEDURE Get Wi ndl nf o( wi ndow: WindowPtr; VAR info: Windowlnfo); 

PROCEDURE Gi veControl (event : Event Record) ; 

PROCEDURE Gi veWi ndow( wi ndow: WindowPtr; toProcess: Processld); 

PROCEDURE HeDi ed( deadProcess: ProcessID); 

PROCEDURE Hi deFol der ( f ol der: WindowPtr); 

PROCEDURE Hi L i t eTab( folder: WindowPtr; f Hi Li t e : BOOLEAN); 

PROCEDURE I mDyi ng; 

PROCEDURE I nitWM; 

PROCEDURE I nval i dateRgnff ol der: WindowPtr; rgn: RgnHandle); 

PROCEDURE I nval Rect( badRect: Rect); 

PROCEDURE I nval Rgn ( badRgn: RgnHandle); 

PROCEDURE LocateDi al og( top, height: integer); 

PROCEDURE MakeFI dr Act i ve( f ol der : WindowPtr; reasonWhy: Longlnt); 

PROCEDURE MakeTopActi ve; 

PROCEDURE MoveFol der ( f ol der: WindowPtr; h GI obal , vGlobal: INTEGER); 

FUNCTION NewFol der ( f ol der Rect : Rect; title: St r 255; visible: BOOLEAN; 

behind: WindowPtr; refCon: Longlnt; process: Processld; 
whichlcon: INTEGER; overlay: INTEGER): WindowPtr; 

PROCEDURE OpenWM; 

PROCEDURE Set Fl drTi tl e( f ol der: WindowPtr; title: St r 255) ; 

PROCEDURE Set F I dr Ref Con( f ol der: WindowPtr; data: Longlnt); 

PROCEDURE Set Wi ndl nf o ( wi ndow: WindowPtr; VAR info: Windowlnfo); 

PROCEDURE ShowFol der ( f ol der: WindowPtr); 

PROCEDURE TakeControl (event : E vent Rec or d; keepMenus, keepDialog: BOOLEAN); 

PROCEDURE TakeWi ndow( wi ndow: WindowPtr); 

PROCEDURE Val i dRect ( goodRect : Rect); 

PROCEDURE Va I i d Rg n ( good Rg n: RgnHandle); 

PROCEDURE WMCI osePi cture; 

PROCEDURE WMKi I I Pi c t ur e( wi ndow: WindowPtr); 

PROCEDURE WMKi I I Process! process: ProcessID); 

PROCEDURE WMOpenPi ct ure( wi ndow: WindowPtr); 
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000128 PROCEDURE WMSt art Doc ( wi ndow: WindoWPtr); 
000129 

000130 ****************************************************************** 

000131 * 

000132 * THAT' S ALL FOLKS . .. 

000133 * 

V v v X J "T 

000135 

End of File -■ Lines: 135 Characters: 3537 
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Fl LE: "LI SA LI B 3 FONTMGR. TEXT" 






USES {$U+} FONTMGR; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 



I i bqd/ Qui ckDraw} QuickDraw, 
I i bsm/UnitStd} Uni tStd, 
I i bs m/ Uni t Hz } Uni t Hz, 
I i bos/ SysCal I } SysCal I , 
I i bos/PSysCal I } PSysCal I; 
{$SETC f mdebug : = FALSE} 
{ $ S E T C f mSymbol s : = f symok} 
{$setC f TraceFM : = f Trace} 



CONST 



OOOOOl *********************************************************************** 

000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FONTMGR 

000004 * 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



ccMax 


= 2 


55 


ccBS 


= 8; 


ccHT 


= 9; 


ccLF 


= 10; 


ccVT 


= 11; 


ccFF 


= 12; 


ccCR 


= 13; 


ccESC 


= 27; 


ccPara 


= 166 


ccSec 


= 164 


ccCopy 


= 169 


ccReg 


= 168 


ccTM 


= 170 


ccDeg 


= 161 


ccDag 


= 160 


ccBul 


= 165 


ccPound 


= 163 


ccEl i p 


= 201 


ccSysAppI e 


= 202 


ccLi s a Logo 


= 0; 


ccCheck 


= 142 


ccAppI e 


= 143 


ccLreg 


= 




ccLalt 


= 1 




ccLdash 


= 2 




ccRreg 


= 3 




ccRalt 


= 4 




ccRdash 


= 5 




ccHreg 


= 6 




c c Hal t 


= 7 




ccHdash 


= 8 




ccVreg 


= 9 




ccValt 


= 10; 


ccVdash 


= ii; 


ccG90f 


= 12; 


ccG90c 


= 13; 


ccG45f 


= 1 


i; 
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000062 ( 


cG45c 


= 


15; 




000063 ( 


cWhi t e 


= 


16; 


000064 ( 


cXLt Gray 


= 


17; 


000065 ( 


c L t Gray 


= 


18; 


000066 ( 


cMedGray 


= 


19; 


000067 ( 


cGray 


= 


20; 


000068 ( 


cDkGray 


= 


21; 


000069 ( 


cBI ack 


= 


22; 


000070 ( 


cNi 1 


= 


255; 


000071 ( 


c Wh i t e Ma s k 


= 


255; 


000072 ! 


ysText 


= 







000073 I 


vmfont 


= 


1 




000074 s 


ysPat 


= 


2 




000075 s 


ysCursor 


= 


3 




000076 1 


i 1 e 12 


= 


4 




000077 1 


i 1 e 18 


= 


5 




000078 I 


i 1 e 2 4 


= 


6 




000079 | 


)15Ti le 


= 


7 




000080 


)12Ti le 


= 


8 




000081 


)10Ti le 


= 


9 




000082 < 


ent 12 


= 


10; 


000083 ( 


ent 18 


= 


il; 


000084 ( 


ent 24 


= 


12; 


000085 | 


)12c ent 


= 


13; 


000086 


ilOcent 


= 


14; 


000087 ( 


il 1 te 


= 


15; 


000088 ( 


ourl er 


= 


16; 


000089 


)ol df ace 


= 


17; 


000090 ( 


al cFont 


= 


18; 


000091 


)20TI le 


= 


19; 


000092 


nar ker 


= 


20; 


000093 1 


i 1 e 7 


= 


21; 


000094 f 


1 conFont 


= 


22; 


000095 s 


ysLogo 


= 


23; 


000096 ( 


levScreen 


= 


0; 


000097 1 


amLst 


= 


23; 


000098 ! 


ubst 1 tut 1 on 


= 


■ 3024; 


000099 


ii gCache 


= 


98000; 


000100 


HI ghCache 


= 


45000; 


000101 


.owCache 


= 


30000; 


000102 


$1 FC NOT f md 


eb 


jg} 


000103 1 


debug 


= 


FALSE 




000104 i 


debugl 


= 


FALSE 




000105 1 


de b u g 2 


= 


FALSE 




000106 1 


de b u g 3 


= 


FALSE 




000107 1 


debug4 


= 


FALSE 




000108 i 


debug5 


= 


FALSE 




000109 i 


de bug 6 


= 


FALSE 




000110 i 


de bug 7 


= 


FALSE 




000111 1 


de b u g 8 


= 


FALSE 




000112 i 


de b u g 9 


= 


FALSE 




000113 f 


debuglO 


= 


FALSE 




000114 1 


debugll 


= 


FALSE 




000115 i 


de b ug 12 


= 


FALSE 




000116 < 


de b ug 13 


= 


FALSE 




000117 1 


de b u g 14 


= 


FALSE 




000118 1 


de b u g 1 5 


= 


FALSE 




000119 1 


de b u g 1 6 


= 


FALSE 




000120 i 


de b u g 1 7 


= 


FALSE 




000121 ( 


de bug 18 


= 


FALSE 




000122 i 


de b u g 1 9 


= 


FALSE 




000123 1 


de bug 20 


= 


FALSE 




000124 1 


de bug 2 1 


= 


FALSE 




000125 1 


debug 22 


= 


FALSE 




000126 ( 


debug23 


= 


FALSE 




000127 1 


de b u g 24 


= 


F 


4LSE 
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000128 


f de b ug 25 


000129 


f de b ug 26 


000130 


f de b ug 27 


000131 


f de b ug 28 


000132 


f de b ug 29 


000133 


f de bug 30 


000134 


f de b u g 3 1 


000135 


f de b ug 32 


000136 


f de b u g 3 3 


000137 


f de b u g 34 


000138 


f de b ug 35 


000139 


f de b ug 36 


000140 


f de b u g 3 7 


000141 


f de b ug 38 


000142 


f de b ug 39 


000143 


f de b u g 40 


000144 


{$ENDC} 


000145 




000146 


TYPE 


000147 


TCc 


000148 


TSt r 30 


000149 


TFam 


000150 


TDev 


000151 


TEdev 


000152 




000153 


TEwhcl 


000154 




000155 


TEskcl 


000156 




000157 


TAdev 


000158 




000159 




000160 




000161 




000162 




000163 




000164 




000165 




000166 




000167 




000168 




000169 




000170 




000171 




000172 




000173 




000174 




000175 


TFntid 


000176 




000177 




000178 




000179 


TLf ntid 


000180 




000181 




000182 




000183 




000184 




000185 




000186 




000187 




000188 




000189 




000190 




000191 




000192 




000193 





FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 



0. .255; 
STRI NG[ 30] ; 
TC; 

■ 128. .127; 

(edevScreen, edevDotMx, edevHDotMx, edevTy per , edevLaser, 
edevl, edev2); 

( ewhc I 20, e wh c I 15, e whc I 12, ewhcllO, ewhclPS, ewhclMF, 
ewhcl MP, ewhclLCS); 

(eskclMPPS, eskclMPFP, eskclMFR, eskclMFI, eskclApple, 
eskcl FQume, eskcl PQume) ; 
PACKED RECORD 

CASE BOOLEAN OF 
TRUE: 

(dev: TDev); 
FALSE: 

(fOffline: TF; 
CASE edev: TEdev OF 

edevScreen, edevLaser: 

0; 
edevDotMx, edevHDotMx: 
( f Hi Res : TF; 
fPortrait: TF); 
edevTy per : 
(fSpoke: TF; 
ewhcl : TEwhcl ) ; 
edevl, edev 2 : 
0); 

END; 

PACKED RECORD 
fam: TFam; 
seteface: Style; 
END; 

PACKED RECORD 
fam: TFam; 
seteface: Styl e; 
CASE BOOLEAN OF 
TRUE: 

(dev: TDev); 
FALSE: 

(fOffline: TF; 
CASE edev: TEdev OF 

edevScreen, edevLaser: 



edevDotMx, edevHDotMx: 
( f Hi Res : TF; 
fPortrait: TF); 
edevTy per : 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 44 of 196 



Apple Lisa Computer Technical Information 



000194 




(fSpoke: TF; 


000195 




ewhcl : TEwhcl 


000196 




edevl, ede v 2 : 


000197 




0); 


000198 




END; 


000199 


rwd 


= 0. .255; 


000200 


'Mpccwi 


i = PACKED ARRAY [TCc] OF TWi d; 


000201 


rPmpccw 


d = A TMpccwi d; 


000202 


rHmpccw 


d = A TPmpccwi d; 


000203 


rPcharS 


[yl e = A TCharStyl e; 


000204 


rcharst 


/I e = PACKED RECORD 


000205 




hks: TH; 


000206 




h mpccwi d: THmpccwi d; 


000207 




bBold: TB; 


000208 




bltalic: TB; 


000209 




bUnderline: TB; 


000210 




bShadow: TB; 


000211 




cExtra: TC; 


000212 




END; 


000213 


rMpefaceb = ARRAY [ St y 1 el t em] OF TB; 


000214 


modifier = RECORD 


000215 




seteface: Style; 


000216 




mpefaceb: TMpefaceb; 


000217 




END; 


000218 






000219 VAR 






000220 


;$l FC fmdebug} 


000221 


debug: 




000222 


debugl 




000223 


de b ug 2 




000224 


debug3 




000225 


debug4 




000226 


de b ug 5 




000227 


debug6 




000228 


de bu g 7 




000229 


debug8 




000230 


de b ug9 




000231 


debugl 


D: TF; 


000232 


debugl 


1: TF; 


000233 


debugl 


2: TF; 


000234 


debugl 


3: TF; 


000235 


debugl 


1: TF; 


000236 


debugl 


5: TF; 


000237 


debugl 


5: TF; 


000238 


debugl 


7: TF; 


000239 


debugl 


3: TF; 


000240 


debugl 


3: TF; 


000241 


debug2 


9: TF; 


000242 


de b ug 2 


1: TF; 


000243 


f de b ug 2 


2: TF; 


000244 


de bu g 2 


3: TF; 


000245 


de b ug 2 


1: TF; 


000246 


f de b ug 2 


5: TF; 


000247 


f de b ug 2 


5: TF; 


000248 


de bu g 2 


7: TF; 


000249 


de b ug 2 


8: TF; 


000250 


f de b ug 2 


9: TF; 


000251 


de bu g 3 


D: TF; 


000252 


de b ug3 


1: TF; 


000253 


de bu g 3 


2: TF; 


000254 


de bu g 3 


3: TF; 


000255 


de bu g 3 


1: TF; 


000256 


de bu g 3 


5: TF; 


000257 


de bu g 3 


5: TF; 


000258 


debug3 


7: TF; 


000259 


P de bu g 3 


8: TF; 
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000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 



fdebug39: TF; 

fdebug40: TF; 

{$ENDC} 

Initial CacheSi ze: TL; 

MinCache: TL; 

c Re f numLi b: TC; 

PROCEDURE F Mi ni t { VAR cError: TC); 

PROCEDURE FMOpen(VAR cError: TC); 

PROCEDURE FMCI oseLi b( VAR cError: TC); 

PROCEDURE FMCacheSi z e ( I CacheSi ze: TL; VAR cError: TC); 

FUNCTION FMAddFont ( s t r 30: TSt r 30; modifier: TModifier; dev: TDev; 
VAR cError: TC): TFam; 

PROCEDURE FMDel f o n t ( I fnti d: TLfntid); 

FUNCTION FMSwapFont ( VAR Ifntid: TLfntid; VAR cError: TC) : TPcharstyle; 

PROCEDURE FMLockFont ( VAR Ifntid: TLfntid; flock: TF; VAR cError: TC); 

FUNCTION FMFont Met r i cs( VAR If ntid: TLfntid; VARfinfo: Fontlnfo; 

VAR cError: TC): TF; 

FUNCTION FMFont Wi d t h s ( VAR Ifntid: TLfntid; VAR hmpccwid: THmpccwid; 

VAR dExtra: TB; VAR cError: TC): TF; 

PROCEDURE FMMapFont ( VAR Ifntid: TLfntid; VAR cError: TC); 
{$1 FC f mdebug} 

PROCEDURE FMDebugffdbg: TF); 

PROCEDURE FMDumpHeurTabl e; 
{SENDC} 

******************************************************************************* 



* 
* 
* 



THAT' S ALL FOLKS 



End of File 



Li nes: 303 Characters: 8457 
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Fl LE: "LI SA LI B 3 FPLI B. TEXT" 



000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FPLIB 

000004 * 

V U V U V J 

000006 

000007 USES {$U + } FPLI B; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 



000014 


{$C Copyright 1983, 1984, Apple Computer Inc. } 


000015 






000016 


CONST 




000017 


SI GDI GLEN 


= 20; 


000018 


DECSTRLEN 


= 255; 


000019 






000020 


TYPE 




000021 


Si ngl e 


= real ; 


000022 


Doubl e 


= ARRAY [0..3] OF i nteger; 


000023 


Comp 


= ARRAY [0..3] OF i nteger; 


000024 


Extended 


= ARRAY [0..4] OF i nteger; 


000025 


SigDi g 


= stri ng[ 51 GDI GLEN] ; 


000026 


DecStr 


= stri ng[ DECSTRLEN] ; 


000027 


Deci ma 1 


= RECORD 


000028 




sgn: 0. . 1; 


000029 




exp: integer; 


000030 




sig: SigDig 


000031 




END; 


000032 


Envi ron 


= i nteger; 


000033 


RoundDi r 


= (TONEAREST, UPWARD, DOWNWARD, TOWARDZERO); 


000034 


RelOp 


= (GT, LT, GL, EQ, GE, LE, GEL, UNORD) ; 


000035 


Except i on 


= (INVALID, UNDERFLOW, OVERFLOW, DIVBYZERO, INEXACT); 


000036 


NumCI ass 


= (SNAN, QNAN, INFINITE, ZERO, NORMAL, DENORMAL); 


000037 


Dec For m 


= RECORD 


000038 




style: ( FLOATDECI MAL, Fl XEDDECI MAL) ; 


000039 




digits: i nteger 


000040 




END; 


000041 






000042 


PROCEDURE AddSfx: 


Si ngl e; VAR y: Extended) ; 


000043 






000044 


PROCEDURE AddD(x: 


Doubl e; VAR y: Extended) ; 


000045 






000046 


PROCEDURE AddC(x: 


Comp; VAR y: Extended) ; 


000047 






000048 


PROCEDURE AddX(x: 


Extended; VAR y: Extended) ; 


000049 






000050 


PROCEDURE SubSfx: 


Si ngl e; VAR y: Extended) ; 


000051 






000052 


PROCEDURE SubD(x: 


Doubl e; VAR y: Extended) ; 


000053 






000054 


PROCEDURE SubCfx: 


Comp; VAR y: Extended) ; 


000055 






000056 


PROCEDURE SubXfx: 


Extended; VAR y: Extended) ; 


000057 






000058 


PROCEDURE MulSfx: 


Si ngl e; VAR y: Extended) ; 


000059 






000060 


PROCEDURE Mul D(x: 


Doubl e; VAR y: Extended) ; 


000061 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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PROCEDURE MulCfx: Comp; VAR y: Extended); 
PROCEDURE MulXfx: Extended; VAR y; Extended); 
PROCEDURE DivSfx; Single; VAR y; Extended); 
PROCEDURE DivDfx: Double; VAR y; Extended); 
PROCEDURE DivC(x: Comp; VAR y; Extended); 
PROCEDURE DlvXfx; Extended; VAR y; Extended); 
FUNCTION CmpX(x: Extended; r; RelOp; y; Extended); boolean; 
, y; Extended); RelOp; 
I nt eger; VAR y; Extended) ; 
SI ngl e; VAR y; Extended) ; 
x; Doubl e; VAR y; Extended) ; 
Comp; VAR y; Extended) ; 

Extended) ; 
i nteger); 
Si ngle); 



FUNCTION RelXfx 

PROCEDURE I 2X(x 

PROCEDURE S2X 

PROCEDURE D2X 

PROCEDURE C2X 

PROCEDURE X2X 

PROCEDURE X2I 

PROCEDURE X2S 

PROCEDURE X2D(x 

PROCEDURE X2C(x 

PROCEDURE L2X(x 

PROCEDURE X2L(x 

PROCEDURE S2Dec 

PROCEDURE D2Dec 



PROCEDURE C2Dec(f 

PROCEDURE X2De 

PROCEDURE Dec2 

PROCEDURE Dec2D(x 



c(f 

S(x 



Extended; VAR y; 

Extended; VAR y; 

Extended; VAR y; 

Extended; VAR y; Doubl e) ; 

Extended; VAR y; Comp) ; 
I ongi nt ; VAR y; Extended) ; 

Extended; VAR y; I ongi nt ) ; 

x; Si ngl e; VAR y; Dec i ma I ) ; 

x; Doubl e; VAR y; Deci ma I ) ; 

x; Comp; VAR y; Deci mal ) ; 

x; Extended; VAR y; Deci mal ) ; 



DecFor m 
Dec For m; 
DecFor m; 
DecFor m; 
Deci mal 
Deci mal 

2C(x: Deci mal 

2X( x 



PROCEDURE Dec 

PROCEDURE Dec 

PROCEDURE St r 2Dec ( s: DecStr; VAR 
VAR Val idPref i 



VAR y 
VAR y 
VAR y 



Deci mal ; VAR y 
VAR 



Si ngle); 
Doubl e) ; 
Comp); 
Extended) 



. ndex; i nteger; 
x; boolean); 



VAR d; Deci mal ; 



VAR Val i dPref i x; bool ean) ; 
PROCEDURE Dec 2 St r ( f : DecForm; d; Decimal; VAR s: DecStr) 
PROCEDURE S 2 St r ( f : DecForm; x; Single; VAR y; DecStr); 

DecForm; x; Double; VAR y; DecStr); 

DecForm; x; Comp; VAR y; DecStr); 

DecForm; x; Extended; VAR y; DecStr); 



PROCEDURE S 2 St r ( f 

PROCEDURE D2Str(f 

PROCEDURE C2Str(f 

PROCEDURE X2Str(f 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



PROCEDURE Str2S(x: DecStr; VAR y: Single); 

PROCEDURE St r 2D( x : DecStr; VAR y: Double); 

PROCEDURE St r 2C( x: DecStr; VAR y: Comp); 

PROCEDURE St r 2X( x: DecStr; VAR y: Extended); 

PROCEDURE RemX(x: Extended; VAR y: Extended; VAR quo: Integer); 

PROCEDURE SqrtXfVAR x: Extended); 

PROCEDURE RlntXfVAR x: Extended); 

PROCEDURE NegXfVAR x: Extended); 

PROCEDURE AbsXfVAR x: Extended); 

PROCEDURE CpySgnXfVAR x: Extended; y: Extended); 

PROCEDURE Next S( VAR x: Single; y: Single); 

PROCEDURE Next D( VAR x: Double; y: Double); 

PROCEDURE Next X( VAR x: Extended; y: Extended); 

FUNCTION CI a s s S( x : Single; VAR sgn: Integer): NumCI ass; 

FUNCTI ON CI assD(x: Double; VAR sgn: Integer): NumClass; 

FUNCTION CI as s C( x : Comp; VAR sgn: Integer): NumClass; 

FUNCTION CI a s s X( x : Extended; VAR sgn: Integer): NumClass; 

PROCEDURE Seal bX( n: Integer; VAR y: Extended); 

PROCEDURE LogbXfVAR x: Extended); 

PROCEDURE Set Rnd( r : RoundDI r); 

PROCEDURE Set Env( e: Envl ron); 

FUNCTION Get Rnd: RoundDI r; 

PROCEDURE Get Env( VAR e: Environ); 

FUNCTI ON Test Xc p( x: Exception): boolean; 

PROCEDURE SetXcpfx: Exception; OnOff: boolean); 

FUNCTI ON Test HI t ( x: Exception): boolean; 

PROCEDURE Set HI t(x: Exception; OnOff: boolean); 

PROCEDURE Proc Ent ry( VAR e: Environ); 

PROCEDURE ProcExi t(e: Environ); 

PROCEDURE Log2X( VAR x: Extended); 

PROCEDURE LnXfVAR x: Extended); 

PROCEDURE LnlX( VAR x: Extended); 

PROCEDURE Exp2X( VAR x: Extended); 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
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PROCEDURE ExpX(VAR x: Extended); 

PROCEDURE ExplXfVAR x: Extended); 

PROCEDURE Xpwr I ( i : integer; VAR x: Extended); 

PROCEDURE XpwrYfy: Extended; VAR x: Extended); 

PROCEDURE Compound(r, n: Extended; VAR x: Extended); 

PROCEDURE Annuityfr, n: Extended; VAR x: Extended); 

PROCEDURE AtanXfVAR x: Extended); 

PROCEDURE Si nX(VAR x: Extended); 

PROCEDURE CosXfVAR x: Extended); 

PROCEDURE TanXfVAR x: Extended); 

PROCEDURE RandomXfVAR x: Extended); 

FUNCTION Get HI t Address: longi nt; 

PROCEDURE SetHI tAddress( HI tAddress: longi nt); 

PROCEDURE I nitFPLi b; 

FUNCTION SANE Envi ron: longint; 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS . .. 
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* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : GRAFUTI L 



USES {$U + } GRAFUTI L; 

I NTRI NSIC; 

I NTERFACE 

USES 

TYPE 
Fi xed 
I nt 6 4 Bi t 



{$U I i bqd/Qui ckDraw } QuickDraw; 



= Longl nt ; 
= RECORD 

hi Long: Longl nt ; 

I oLong: Longl nt ; 
END; 

FUNCTION Bi t And( I ongl, I o ng 2 : Longlnt): Longlnt; 

FUNCTI ON Bi t Or ( I ongl, I o ng 2 : Longlnt): Longlnt; 

FUNCTION Bi t Xor ( I ongl, I o ng 2 : Longlnt): Longlnt; 

FUNCTI ON Bi t Not (I ong: Longlnt): Longlnt; 

FUNCTION Bi t Shi f t ( I ong: Longlnt; count: INTEGER): Longlnt; 

FUNCTION Bi t Tst ( byt ePt r : QDPtr; bitNum: Longlnt): BOOLEAN; 

PROCEDURE Bi t Set ( byt e Pt r : QDPtr; bitNum: Longlnt); 

PROCEDURE BitCI rfbytePtr: QDPtr; bitNum: Longlnt); 

PROCEDURE LongMulfa, b: Longlnt; VARdst: I n 1 64 B i t ) ; 

FUNCTION FixMul (a, b: Fixed): Fixed; 

FUNCTION Fi xRat i o( numer , denom: INTEGER): Fixed; 

FUNCTION Hi Word(x: Fixed): INTEGER; 

FUNCTION LoWord(x: Fixed): INTEGER; 

FUNCTION FixRoundfx: Fixed): INTEGER; 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS 



End of File 
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* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : GRAPHS 

USES {$U+} GRAPHS; 

{$1 FC isl ntrin} I NTRI NSIC; {$ENDC} 

I NTERFACE 

USES 

{$1 FC SrcOnOS } 

(*$U OBj/PASDEFS.OBj *) PasDefs, 

(*$U OBJ / MEMMAN. OBJ *) MemMan, 

(*$U OBJ/LI STS.OBJ *) Lists; 
{$ELSEC } 

(*$U OBJ : PASDEFS. OBJ *) PasDefs, 

(*$U OBJ : MEMMAN. OBJ *) MemMan, 

(*$U OBJ : LI STS.OBj *) Lists; 
{$ENDC } 

TYPE 



Vertex = i nteger; 

Arc = i nteger; 

VertexRec = RECORD 

f i rst I n, f i rst Out : Arc; 
END; 
RECORD 

initial, t er mi nal : Vertex; 

next I n, nextOut : Arc; 
END; 

A VtxRow; 
A ArcRow; 
ARRAY [ 
ARRAY [ 
A VtxArr; 
A ArcAr r; 
ARRAY [ 
ARRAY [ 
A GraphStore; 
RECORD 

memVertices, memArcs: MMHandle; 

vert ices: VtxAr r Pt r; 

arcs: ArcArrPtr; 
END; 

A GraphObj ect; 
RECORD 

gst ore: GRHandl e; 

i nL, out L: List Handl e; 
END; 

PROCEDURE AddAr c ( graph: GraphHandle; init, term: Vertex; VAR newA: Arc; 
FUNCTION GetMorefn, row: integer): boolean); 

PROCEDURE AddVert ex( graph: GraphHandle; VAR newV: Vertex; FUNCTION 
GetMorefn, row: integer): boolean); 



Arc Rec 



VtxRowPt r 
ArcRowPt r 
VtxRow 
ArcRow 
VtxArrPt r 
ArcArrPtr 
VtxAr r 
ArcAr r 
GRHandl e 
GraphStore 



GraphHandl e 
GraphObj ect 



128. .127] OF VertexRec; 
128. .127] OF ArcRec; 



128. .127] OF VtxRowPtr; 
128. .127] OF ArcRowPtr; 
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PROCEDURE Del et eAr c ( graph: Gr aphHandl e; oldArc: Arc); 

PROCEDURE Del et eVert ex( graph: Gr aphHandl e; oldVertex: Vertex); 

FUNCTION Fl ndArcf graph: Gr aphHandl e; Init, term: Vertex): Arc; 

FUNCTI ON Opposi teVertex( graph: Gr aphHandl e; a: Arc; 

oneVertex: Vertex): Vertex; 

FUNCTI ON I nl t Vert ex( graph: Gr aphHandl e; a: Arc): Vertex; 

FUNCTION Ter mVert ex( graph: Gr a phHandl e; a: Arc): Vertex; 

FUNCTION I s Sour ce( graph: GraphHandle; v: Vertex): boolean; 

FUNCTION I sSI nklgraph: GraphHandle; v: Vertex): boolean; 

FUNCTION I si sol at ed( graph: GraphHandle; v: Vertex): boolean; 

PROCEDURE EachVert ex( graph: GraphHandle; PROCEDURE 
Vlsltfv: Vertex)); 

PROCEDURE Eac hAr c (graph: GraphHandle; PROCEDURE 
Vlsltfa: Arc)); 

PROCEDURE Eac hi nAr c ( graph: GraphHandle; v: Vertex; PROCEDURE 
VI si t ( I nArc: Arc) ) ; 

PROCEDURE Eac hOut Arc ( graph: GraphHandle; v: Vertex; PROCEDURE 
Vi s i t ( out Ar c : Arc)); 

PROCEDURE Eac hi nc i dent Ar c ( graph: GraphHandle; v: Vertex; PROCEDURE 

Vi si t ( i nci dent Arc : Arc) ) ; 

PROCEDURE EachPredecessor Vert ex( graph: GraphHandle; v: Vertex; PROCEDURE 

Vi si t( predecessor: Vertex)); 

PROCEDURE EachSuccessor Vert ex( graph: GraphHandle; v: Vertex; PROCEDURE 

Vi si t( successor: Vertex)); 

PROCEDURE EachAdj acent Vert ex( graph: GraphHandle; v: Vertex; PROCEDURE 

Vi si t( adj acent : Vertex)); 

PROCEDURE I nitGLists; 

PROCEDURE I ni t Graph) VAR graph: GraphHandle; nVertices, nArcs: longint; 

FUNCTI ON MoreVertsfn, row: integer): boolean; FUNCTION 
MoreArcsfn, row: integer): boolean); 

PROCEDURE DFSDirfg: GraphHandle; start: Vertex; PROCEDURE 
First(vi, a, vt: Vertex); PROCEDURE 
Agai n( vi , a, vt: Vertex); PROCEDURE 
Done(v: Vertex)); 

PROCEDURE BFSUn Di r ( g : GraphHandle; start: Vertex; FUNCTION 

Te s t ( v : Vertex; VAR cont: boolean): boolean); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 
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* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : HEAP 

USES {$11+} HEAP; 

I NTRI NSIC; 

I NTERFACE 

CONST 

noerror = 0; 

no mem =3411; 

I head = 2; 

uhead = 10; 
f reeover head = 12; 

al I ocover = 8; 



zonedesc 



TYPE 

_ pt r = A i nteger; 

ptrpt r = A _pt r; 

heappt r = A heapbl k; 

heapbl k = RECORD 

CASE bool ean OF 
true: 

(size: i nteger; 
prep: heapptr; 
next: heapptr); 
f al se: 

(bl k: ARRAY [0. .0] OF ■ 127. .127) 
END; 
= RECORD 

avai I : heapptr; 
heap mi n, heap max: _ p t r ; 
I ast di f f : i nteger; 
avai I si ze: i nteger; 
END; 
ptrzonedesc = A zonedesc; 

PROCEDURE i ni theapl pzone: ptrzonedesc; initsize: integer; where: _ pt r ) ; 

FUNCTION growheapl pzone: ptrzonedesc; growincr: integer): integer; 

FUNCTION nnewlpzone: ptrzonedesc; reqsize: integer; 
pdataptr: ptrptr): integer; 

PROCEDURE ndi sposef pzone: ptrzonedesc; pdata: _ pt r ) ; 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 



End of File 
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* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : HWI NT 



USES {$U + } HWI NT; 

I NTRI NSIC; 

I NTERFACE 

TYPE 
As c i i 

Pi xel s 
ManyPi xel s 
Cursor Hei ght 
CursorPtr 
Logi cal Address 
DateArray 



Char; 
I nteger; 
Longl nt ; 
I nteger; 
A l nteger; 
■ Longl nt ; 
RECORD 

year; I nteger; 

day; Integer; 

hour; I nteger; 

mi nut e; I nteger; 

second; I nteger; 
END; 

Longl nt ; 
Longl nt ; 
Longl nt ; 
Longl nt ; 
I nteger; 
I nteger; 
= I nteger; 

(PriScrn, AltScrn); 
1. .1000; 
I nteger; 
0. .127; 

SET OF KeyCap; 
PACKED RECORD 

key; KeyCap; 

asci i ; Char; 

state; I nteger; 

mo use X; Pixels; 

mouseY; Pixels; 

t i me; Mi I I i Seconds; 
END; 



PROCEDURE Driverl nit; 

PROCEDURE Di skDri ver ( rout i ne: Logi cal Address) ; 

PROCEDURE Twi ggyDr i ver ( rout i ne: Logi cal Address) ; 

PROCEDURE Di skSyncf busy; Boolean); 

PROCEDURE NMI Sync; 

PROCEDURE COPSSync; 

PROCEDURE Pol I; 



F r a me s 

Seconds 

Mi I I i Seconds 

Microseconds 

AlarmNumber 

SpeakerVol ume ■ 

ScreenCont rast 

VisibleScrn 

KeybdQI ndex 

Keybdld 

KeyCap 

KeyCapSet 

Key Event 
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PROCEDURE MouseLoc at i on( VAR x: Pixels; VAR y: Pixels); 

PROCEDURE MouseUpdat es( del ay: Milliseconds); 

PROCEDURE MouseScal i ng( seal e: Boolean); 

PROCEDURE MouseThresh( t hreshol d: Pixels); 

FUNCTION MouseOdometer: ManyPixels; 

PROCEDURE Cur sorLocat i on( x: Pixels; y: Pixels); 

PROCEDURE CursorTracki ng( track: Boolean); 

PROCEDURE Cursorl mage( hotX: Pixels; hot Y: Pixels; height: Cursor Hei ght; 

data: CursorPtr; mask: CursorPtr); 

PROCEDURE Cur s or Hi d e ; 

PROCEDURE Cur sorShi el d( I ef t : Pixels; top: Pixels; right: Pixels; 

bottom: Pi xel s) ; 

PROCEDURE Cur s or Di spl ay; 

PROCEDURE CursorObscure; 

PROCEDURE Cursorl nit; 

PROCEDURE CursorRel nit; 

PROCEDURE Busyl magef hotX: Pixels; hot Y: Pixels; height: Cursor Hei ght ; 
data: CursorPtr; mask: CursorPtr); 

PROCEDURE Busy Del ay( del ay: Milliseconds); 

FUNCTION FrameCounter: Frames; 

PROCEDURE ScreenSi ze( VAR x: Pixels; VAR y: Pixels); 

FUNCTION ScreenAddr: Logi cal Address; 

FUNCTION AltScreenAddr: Logi cal Address; 

FUNCTION ScreenKeybd: Vi si bl eScreen; 

PROCEDURE Set ScreenKeybd) screen: Vi si bl eScreen) ; 

FUNCTION Contrast: ScreenCont rast ; 

PROCEDURE SetCont rast (contrast : ScreenCont rast ) ; 

PROCEDURE RampContrastf contrast: ScreenCont rast ) ; 

FUNCTION DimContrast: ScreenCont rast ; 

PROCEDURE Set Di mCont rast ( contrast : ScreenCont rast ) ; 

FUNCTION FadeDel ay: Mi I I i Seconds; 

PROCEDURE Set FadeDel ay( del ay: Milliseconds); 

PROCEDURE PowerDown; 

PROCEDURE Power Cy c I e( del ay: Seconds); 
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FUNCTI ON Vol u me : Speaker Vol ume; 

PROCEDURE Set Vol ume( vol ume: SpeakerVol ume) ; 

PROCEDURE Noi se( waveLengt h: Mi croSeconds) ; 

PROCEDURE Si I ence; 

PROCEDURE Beep! waveLengt h: Microseconds; duration: Milliseconds); 

FUNCTION Keyboard: Keybdld; 

FUNCTION Legends: Keybdld; 

PROCEDURE Set Legends ( i d : Keybdld); 

FUNCTION KeylsDownf key: KeyCap): Boolean; 

PROCEDURE KeyMapl VAR keys: KeyCapSet); 

FUNCTION KeybdPeeM repeats: Boolean; index: KeybdQI ndex; 
VAR event: Key Event ) : Boolean; 

FUNCTI ON Al t Key Peek( repeats: Boolean; index: KeybdQI ndex; 
VAR event: Key Event ) : Boolean; 

FUNCTION KeybdEvent ( repeats: Boolean; wait: Boolean; 
VAR event: Key Event ) : Boolean; 

FUNCTI ON Al t Key Event ( repeat s: Boolean; wait: Boolean; 
VAR event: Key Event ) : Boolean; 

PROCEDURE Repeat Rat e( VAR initial: Milliseconds; 

VAR subsequent: Milliseconds); 

PROCEDURE Set Repeat Rat e( i ni ti al : Milliseconds; subsequent: Milliseconds); 

PROCEDURE KeyPushed( key: KeyCap); 

FUNCTION NMI Key: KeyCap; 

PROCEDURE Set NMI Key ( key: KeyCap); 

FUNCTION ToggleKey: KeyCap; 

PROCEDURE Set Toggl eKey( key : KeyCap); 

FUNCTION KeyToAsci i ( key: KeyCap; State: Integer): Ascii; 

FUNCTION MicroTimer: Microseconds; 

FUNCTION Ti mer: Mi I I i Seconds; 

PROCEDURE Alar mAs s i gn( VAR alarm: AlarmNumber; routine: Logi cal Address) ; 

PROCEDURE Al armRet urn(al arm: AlarmNumber); 

PROCEDURE Al armAbsol ute( al arm: AlarmNumber; time: Milliseconds); 

PROCEDURE Al armRel at i ve( al arm: AlarmNumber; delay: Milliseconds); 

PROCEDURE AlarmOff (alarm: AlarmNumber); 

PROCEDURE Dat eTi me ( VAR date: DateArray); 

PROCEDURE Set Dat eTi me( dat e : DateArray); 
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PROCEDURE DateToTi met date: DateArray; VAR t i me: Seconds); 

FUNCTION TimeStamp: Seconds; 

PROCEDURE SetTi meStampI t i me: Seconds); 

PROCEDURE Ti meToDat e( t i me: Seconds; VAR date: DateArray); 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS 



End of File -■ Lines: 208 Characters: 5154 
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000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : I NTERNAT 

000004 * 

V U V U V J 

000006 

000007 USES {$U+} I NTERNAT; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U I i bsm/Uni tStd } UnitStd; 
000016 

000017 CONST 

000018 Maxi mumChar sMat chi ng = 10; 

000019 MCodeNi I = 0; 

000020 MCodeUS = 1; 

000021 MCodeUK = 2; 

000022 MCodeGer many = 3; 

000023 MCodeF ranee = 4; 

000024 MCodeltaly = 5; 

000025 MCodeSweden = 6; 

000026 MCodeSpai n =7; 
000027 

000028 TYPE 

000029 Ki ndOf Compare = ( CompAbsol ut e, CompStrong, CompWeak, CompVeryWeak) ; 

000030 CompChrP = A CompChr; 

000031 CompChr = PACKED ARRAY [0..0] OF CHAR; 

000032 CompStrP = A CompStr; 

000033 CompStr = STRI NG[ 255] ; 
000034 

000035 PROCEDURE I nitl nternational (VAR errnum: INTEGER); 

000036 

000037 PROCEDURE UpSt r Shi f t ( sP: CompStrP); 

000038 

000039 PROCEDURE UpChr Shi f t ( pc : CompChrP; length: INTEGER); 

000040 

000041 PROCEDURE DownSt r Shi f t ( s P: CompStrP); 

000042 

000043 PROCEDURE DownChr Shi ft(pc: CompChrP; length: INTEGER); 

000044 

000045 FUNCTI ON CompSt rMagni tude( stri ngl, s t r i ng 2 : CompStrP; 

000046 veryWeak: BOOLEAN): INTEGER; 
000047 

000048 FUNCTION Co mpC h r Ma g n i t u d e ( c ha r 1 , c har 2 : CompChrP; lengthl, I engt h2 : INTEGER; 

000049 veryWeak: BOOLEAN): INTEGER; 
000050 

000051 FUNCTION Compar eChar ( chl, ch2: CHAR; kind: Ki ndOf Compare) : BOOLEAN; 
000052 

000053 PROCEDURE CharsMatchi ng(ch: CHAR; kind: Ki ndOf Compare; 

000054 matchi ngChars: CompChrP; 

000055 VAR nOf Matchi gChars: INTEGER); 
000056 

000057 FUNCTI ON CompStrl denti ty(stri ngl, stri n g 2 : CompStrP; 

000058 kind: Ki ndOf Compare) : BOOLEAN; 
000059 

000060 FUNCTION CompChr I dent i ty( c har 1, char 2: CompChrP; lengthl, I e ng t h 2 : INTEGER; 

000061 kind: Ki ndOf Compare) : BOOLEAN; 
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000062 

v v v v U J 

000064 * 

000065 * THAT' S ALL FOLKS . .. 

000066 * 

000067 ******************************************************************** 

000068 

End of File -■ Lines: 68 Characters: 1915 
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* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : I OPRI Ml T 

USES {$U + } I OPRI MIT; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$u SULi b} StdUnit; 



CONST 

I OMaxStr 
I OMaxStPl 
IOBI kSize 
I OByteSi ze 
I OBytSizeMl 
I 01 ncMax 
I OPvt Err 
I OOpnErr 
I 01 ncErr 
I OBf r Err 
I OMemlEr r 
I OMem2Err 

TYPE 

I OModes 
I OCI oseKi nd 
I ODevType 
lOStrP 
lOStr 
lOBuf rP 
lOBufr 
lOPBuf P 
lOPBuf r 



IOFCBP 
IOFCB 



132; 

133; 

6; 

3072; 

3071; 

5; 

32000 

32001 

32002 

32003 

32004 

32005 



(lORea 

(lONor 

(IOBI k 

A IOStr 

St ri ng 

A IOBuf 

PACKED 

A IOPBu 

RECORD 

Nex 

Buf 

END; 

A IOFCB 

RECORD 

Fil 

Dev 

F: 

Li n 
Buf 
Buf 
Pvt 
Pvt 
Blk 
Cur 
Cur 
Nex 
Ptr 
Pus 
Buf 
CAS 



d, lOWrite); 

mal, lOLock, lOPurge, lOCrunch); 

Dev, lOKbDev, I OCons Dev , lOPrDev); 

'[I OMaxStr]; 
r; 

ARRAY [0. . I OBytSizeMl] OF Char; 
fr; 

t: lOPBufP; 
r: lOBufrP; 



ename: SUStr; 

Type: I ODevType; 

Fl LE; 

eNbr : I nteger; 

r: lOBufrP; 

rCp: I nteger; 

Bufr: lOPBufP; 

FCB: Boolean; 

Nbr: I nteger; 

r Li ne: St ri ng[ I OMaxStPl] 

r Len: I nteger; 

t, Prev, Avail: IOFCBP; 

ToFCBPtr: A l OFCBP; 

hed: Boolean; 

r Saved: Bool ean; 

E Mode: I OModes OF 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



lORead: 

(LastBlk: Integer; 
Last Byte: I nt eger; 
Eol : Bool ean) ; 
lOWrite: 

( EndPage: I nteger); 



VAR 





END; 


lOTextP 


= "Text; 


1 OCurrFCB: 


IOFCBP; 


1 01 ncDept h: 


1 nteger; 


1 01 ncBuf r: 


lOBufrP; 


IOI ncFCBs: 


ARRAY [1. . IOI ncMax] OF IOFCBP; 


1 01 nTotal : 


Longl nt ; 


1 OOut Total : 


Longl nt ; 


lOEndf Me: 


Char; 


1 ONewl i ne: 


Char; 


1 OKey Boar d: 


Text; 


lOObj Ext: 


Bool ean; 


lONoExt: 


Bool ean; 


IONoDLEs: 


Bool ean; 



PROCEDURE I nitIO; 

PROCEDURE EndIO; 

FUNCTION OpenF( Fname: SUStr; VAR FCB: IOFCBP; Mode: lOModes; 
Buf r: I OBuf r P) : I nteger; 

FUNCTION CreateF(Fname: SUStr; VAR FCB: IOFCBP; Bufr: lOBufrP): Integer; 

FUNCTION SysOpenF( Fname: SUStr; VAR FCB: IOFCBP; Mode: lOModes; 
Bufr: I OBuf rP) : I nteger; 

PROCEDURE CI oseF( FCB: IOFCBP; CloseKind: I OCI oseKi nd) ; 

FUNCTION Pushl nput ( Fname: SUStr): Integer; 

FUNCTI ON Popl nput: Bool ean; 

PROCEDURE Next Page( FCB: IOFCBP); 

PROCEDURE Fi I I Buf r ( FCB: IOFCBP); 

PROCEDURE SeekBI ock( FCB: IOFCBP; Block: Integer); 

PROCEDURE Fi I ePosi ti on( FCB: IOFCBP; VAR Block, Byte: Integer); 

FUNCTI ON Get cF( FCB: IOFCBP; VARc: Char): Char; 

FUNCTI ON Get Li ne( FCB: IOFCBP; Line: lOStrP): Boolean; 

PROCEDURE Put c F( FCB: IOFCBP; c: Char); 

PROCEDURE Put L i neP( FCB: IOFCBP; Line: lOStrP); 

PROCEDURE Put L i neS( FCB: IOFCBP; Line: lOStr); 

PROCEDURE Put St r P( FCB: IOFCBP; S: lOStrP; Width: Integer); 

PROCEDURE Put St r S( FCB: IOFCBP; S: lOStr; Width: Integer); 

FUNCTI ON Put I nt P( N: Longlnt; Width: Integer): lOStrP; 

FUNCTION I OEr r or ( I OSt at us: Integer; Msg: SUStr): Boolean; 
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000128 

000129 FUNCTION SysReset ( F: lOTextP; FN: SUStr): Integer; 

000130 

000132 * 

000133 * THAT' S ALL FOLKS . .. 

000134 * 

v V V A J tj 

000136 

End of File -- Lines: 136 Characters: 3872 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : I UMAN 

USES {$U + } I UMAN; 

{$1 FC isl ntrin} I NTRI NSIC; {$ENDC} 

I NTERFACE 

USES 

{ $1 FC SrcOnOS } 

(*$U OBJ/STDUNIT. OBJ *) StdUnit, 
(*$U OBj/PASDEFS.OBj *) Pas Def s , 
(*$U OBj/MEMMAN.OBj *) MemMan, 
(*$U OBj/FI LEIO.OBj * ) Fi I e I O, 
(*$U OBJ /OBJ 10. OBJ *) Obj 10; 
{$ELSEC } 

STDUNIT. OBJ *) StdUnit, 

PASDEFS.OBJ *) Pas Def s , 

MEMMAN. OBJ *) MemMan, 

Fl LEI O. OBJ *) FilelO, 

OBJ 10. OBJ *) Obj 10; 
NDC } 

CONST 



(*$U OBJ 


(*$U OBJ 


(*$U OBJ 


(*$U OBJ 


(*$U OBJ 


{$ENDC } 



Conf i gMax 



TYPE 



pSegLocVari ant 
pOI dULVari ant ■■ 
pUni t LVar i ant ■ 
{$1 FC i sSAndE} 
pSoftSystem 
pSftSysRec 
SftSysRec 



{$ENDC} 

lUSegArr 

lUUnitArr 

lUStrArr 

PIUStrArr 

{$1 FC i sSAndE} 

lUSysArr 

lUSysDep 

{$ENDC} 



1 127. 127.127. 127' 



= A i SegLocVari ant; 
A i 01 dULVari ant; 
A i Uni t LVari ant; 

1 Sof tSystem; 

"SftSysRec; 

RECORD 

SDep: i Sf t SysVari ant; 

nxt: pSftSysRec; 
END; 

ARRAY [1..TMAXSEGS] OF pSegLoc Var i ant ; 
ARRAY [1..TMAXUNITS] OF pUni t LVar i ant ; 
ARRAY [1..TMAXFI LES] OF PLStri ng; 
A l UStrArr; 

ARRAY [1..TMAXSYSS] OF pSoft System; 
ARRAY [1..TMAXSYSS] OF pSftSysRec; 



VAR 



lUMaxSegs, lUMaxUnits, lUMaxFNames, lUMaxSyss: 

iuLibSegs: A IUSegArr; 

iuLibUnts: A IUUnitArr; 

iuLibFNam: PIUStrArr; 

{$1 FC i sSAndE} 

iuLibSyss: A IUSysArr; 



i nteger; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 



iuLibSNam: PIUStrArr; 

iuLibSDep: A IUSysDep; 

{$ENDC} 

iuLibFile: Obj Handl e; 

i uLi bName: LSt r i ng; 

01 d For mat : bool ean; 

Thi si ULi b: i nt eger; 

sysConfig, sysMi nConfi g, sysMaxConf i g: Longint; 

PROCEDURE I nitl UMan; 

PROCEDURE Eachl USeg( PROCEDURE visitfs: integer)); 

PROCEDURE Eachl UUni t ( PROCEDURE visitfu: integer)); 

PROCEDURE Eachl UF i I e( PROCEDURE visitff: integer)); 
{$1 FC i sSAndE} 

PROCEDURE Eachl USys ( PROCEDURE visitfs: integer)); 
{SENDC} 

PROCEDURE VersToSt r( VAR s: LString; VAR vers: Longint); 

PROCEDURE Wri teVersf VAR f: text; vers: Longint; len: integer); 

PROCEDURE St rToVer s( s: LString; VAR vers: Longint); 

PROCEDURE ReadVersfVAR vers: Longint; VARstat: Prompt St ate; DefL: Longint); 

PROCEDURE Ver i f yVersf mi nf i I e: Longint; maxfile: Longint; msg: LString); 

FUNCTION Readl ULi b( al I oc Del t a, unitsOnly, filter: boolean; 
SSNam: PLSt ri ng) : bool ean; 

PROCEDURE WritelULi bfVCtrl : ObjFileType; SysC: Longint; ModL: integer; 
Ti meS: Longint; VAR i uOut Fi I e: Obj Handle; 
Root I dx: i nt eger ) ; 

PROCEDURE Wri tel UVer s ( VCt r I : ObjFileType; SysC: Longint; ModL: integer; 

Ti meS: Longint; VAR i u Out File: Obj Handle; 
Rootldx: integer; EmitOSBIk: boolean); 

FUNCTION I Ul nstal I (VAR FName: LString; FNum: integer; VARvFile: Obj Handl e; 
VAR PName: LString; PITSeg: integer): boolean; 

PROCEDURE Copyl nterfi nF, out F: Obj Handl e; VAR out Bl ock: Obj Bl oc k; NBytes, 
buf P: Longi nt ) ; 

******************************************************************************* 
* 



THAT' S ALL FOLKS . .. 



* 
* 
******************************************************************************* 



End of File 



Li nes: 115 Characters: 3471 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LABSCAN 

USES {$U+} LABSCAN; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$IFC 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 

{ $ELSE 
{$U 

{$u 
{$u 
{$u 
{$u 
{$u 
{$u 
{$u 
{$u 
{$u 

{$ENDC 



OSBUI LT } 
I i bsm/ uni t std. obj } uni t st d, 
I i bdb/ dbenv. obj } dbenv, 
I i bi n/ 1 NTRLI Bp. obj } international, 
I i bdb/dbdecl l.obj } dbdecl 1, 
I i bos/syscal I . obj } syscal I , 
I i bos/ psyscal I . obj } psyscal I , 
I i bdb/ 1 owl evel .obj } I owl evel , 
I i bdb/ pool er. obj } pool er, 
I i bdb/ heap, obj } heap, 
I i bdb/ czcompact . obj } czCompact, 
I i bdb/ vl t ree. obj } vl t ree, 
I i bdb/scan. obj } scan; 

C} 

OBJ ; dbenv. obj } dbenv, 
I NTRLI B. obj } i nternat i onal , 



OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 



dbdecl l.obj } dbdecl 1, 
syscal I . obj } syscal I , 
I owl evel .obj } I owl evel , 
pool er. obj } pool er, 
heap, obj } heap, 
czcompact. obj } czCompact, 
vl t ree. obj } vl t ree, 
scan, obj } scan; 



{$SETC debug ; = false } 
{$1 FC PRERELEASE } 



var 



labdebug: boolean; 

{$ENDC } 

PROCEDURE I f et c h( VAR ddresult; integer; scanid; integer; which; integer; 
nsearch; integer; plabrec; pt r I abel ent ry) ; 

PROCEDURE I i ns er t ( VAR ddresult; integer; scanid; integer; 
plabrec; ptrl abel ent ry; size; integer; 
newt i cket ; bool ean) ; 

PROCEDURE I del et e ( VAR ddresult; integer; scanid; integer; which; integer; 
nsearch; integer; plabrec; ptrl abel ent ry) ; 

******************************************************************************* 
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000062 * 

000063 * 

000064 * 

* v V v V v 

000066 



End of File ■■ Lines: 66 Characters: 1901 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LCUT 

USES {$U+} LCUT; 

I NTRI NSIC; 
I NTERFACE 



USES 



{$ 
{$ 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 

(* 

I * 



$U 
$U 

$u 

U I 
U I 

$u 
$u 
$u 
$u 
$u 
$u 
$u 
$u 
$u 
$u 
$u 
$u 
$u 

$SE 



i bsm/Uni tStd *) UnitStd, 
i bsm/Uni t Hz *) UnitHz, 
i bq d / Storage *) Storage, 
bqd/ Qui ckDraw } QuickDraw, 
bf m/ Font Mgr } FontMgr, 

bdb/dbenv *) dbenv, 

bfe/FEdec *) FEdec, 

bfe/f Id *) fieldedit, 

bos/SysCall *) Syscall, 

bte/teenv *) teenv, 

bpr/PMDecl *) PMDecl, 

bpr/PrStdl nfo *) PrStdl nf o, 

bwm/events *] 

bsu/ scrap *) 

bsu/ uni t Fi I e 

bsu/ uni t Fmt 

bsu/ uni tCs 

bsu/ uni t FF *' 



TC LCUTdebug 



events, 
scrap, 

* ) uni t Fi I e, 

*) uni t Fmt, 

*) Unites, 

uni t FF; 
■ not t eProduct i on 



CONST 

LCUTAI I Ok 

LCUTNoData 

LCUTTabProb 

LCUTWi dProb 

LCUTNoHeap 

(*$l FC LCUTdebug *) 

TraceLCUT = false 

(*$ENDC *) 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File ■■ Lines; 50 Characters; 1328 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LISTS 

USES {$U+} LISTS; 

{$1 FC isl ntrin} I NTRI NSIC; {$ENDC} 

I NTERFACE 

USES 

{$1 FC SrcOnOS } 

(*$U OBj/PASDEFS.OBj *) PasDefs, 

(*$U OBJ / MEMMAN. OBJ *) MemMan; 
{$ELSEC } 

(*$U OBJ : PASDEFS. OBJ *) PasDefs, 

(*$U OBJ : MEMMAN. OBJ *) MemMan; 
{$ENDC } 

TYPE 



Head = i nteger; 

Item = i nteger; 

Li stOpsPtr = A Li stOpsRec; 
Envr Pt r = A i nteger; 

Li stOpsRec = RECORD 

set Fi rst : ProcPt r; 

get Fi rst : ProcPt r; 

set Next : ProcPtr; 

get Next : ProcPtr; 

before: ProcPtr; 
END; 
Li st Handl e = A Li st Store; 
ListStore = RECORD 

ops: ListOpsPtr; 

I store: I ongi nt ; 
END; 

PROCEDURE Addltemfl i st: Li st Handl e; LHead: Head; Newltem: Item); 

PROCEDURE Del eteltemfl i st: Li st Handl e; LHead: Head; 01 dl t em: Item); 

PROCEDURE Eachltemd ist: Li st Handl e; LHead: Head; PROCEDURE 
Vi si t ( LI tern: Item)); 

FUNCTION Fi rstltemfl ist: Li st Handl e; LHead: Head): Item; 

PROCEDURE I ni t Li st ( I ist: Li st Handl e; NewLi st : Head); 

PROCEDURE I ni t LSt or e( VAR list: Li st Handl e; LO: ListOpsPtr; LS: longint); 

PROCEDURE I nsertl tem( I i st: Li st Handl e; LHead: Head; Newltem: Item); 

FUNCTION Li st Empt y( I i st : Li st Handl e; LHead: Head): boolean; 

FUNCTI ON Li stSi ze( I i st: Li st Handl e; LHead: Head): integer; 
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000063 

000064 ******************************************************************* 

000065 * 

000066 * THAT' S ALL FOLKS . .. 

000067 * 

000069 

End of File ■■ Lines: 69 Characters: 1923 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 70 of 196 



Apple Lisa Computer Technical Information 



Fl LE: "LI SA LI B 3 LOWLEVEL. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LOWLEVEL 

USES {$U+} LOWLEVEL; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$1 FC OSBui It } 

{$U I i bsm/uni tstd. obj } unltstd, 

{$U I i bdb/ dbenv. obj } dbenv, 

{$U I i bdb/ dbdec 1 1. obj } dbdecl 1, 

{$U I i bos/syscal I . obj } syscal I , 

{$U I i bos/ psyscal I . obj } psyscall; 
{$ELSEC } 

{$U obj : dbenv. obj } dbenv, 

{$U obj : dbdecl 1. obj } dbdecl 1, 

{$U obj : syscal I . obj } syscal I ; 
{$ENDC } 



Type 



ptrpathname = "pathname; 

VAR 

pref i x I engt h: i nt eger; 
prefix: pathname; 

passwdl engt h: i nteger; 
password: e name; 

PROCEDURE set pref i x( newpref i x: ptrpathname); 

PROCEDURE set passwdl VAR newpasswd: ename); 

PROCEDURE pref i xnameff name: ptrpathname); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 



Li nes: 49 Characters: 1120 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : MATHLI B 

USES {$U + } MATHLI B; 

I NTRI NSIC; 

I NTERFACE 

{$C Copyright 1983, 1984, Apple Computer Inc. } 

USES 

{$U- } {$U Li bFP/NewFPLi b } F PL i b; 



CONST 

Rand Mo dul us 
LSi g Di gLen 



2147483647; 
30; 



TYPE 



RoundPreci si on = ( Ext Preci si on, Dbl Preci si on, Real Preci si on) ; 

(TFP byte, TFP integer, TFP longint, TFP Comp, TFP real, 
TFP" Doubl e, TFP Extended);" 
RECORD 

MaxSi g: i nt eger; 

Sig FForm, Trail Point, I nt EForm, Plus EForm: boolean; 
END; 

I ongi nt ; 

st ri ng[ LSi g Di gLen] ; 
RECORD 

sgn: 0. . 1; 

exp: integer; 



FPType 
Free F o r ma t 



PQRRecord 
LongSi g Di g 
Long Dec i ma I 



sig: LongS 



END; 



gDi g; 



PROCEDURE ASinXfVAR x: Extended) 

PROCEDURE ACosXfVAR x: Extended) 

PROCEDURE Si nhX( VAR x: Extended) 

PROCEDURE Cos hX( VAR x: Extended) 

PROCEDURE TanhXfVAR x: Extended); 

PROCEDURE Abs2X(x, y: Extended; VAR z: Extended); 

PROCEDURE ATan2X(x, y: Extended; VAR z: Extended); 

FUNCTION Next Random! I ast random: longint): longint; 

PROCEDURE ClearXcps; 

PROCEDURE CI ear HI t s; 

PROCEDURE Set Preci si on( p: RoundPreci si on) ; 

FUNCTION Get Preci si on: RoundPreci si on; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



PROCEDURE Math. Sor t ( f i r st , last: integer; FUNCTION 

sortedfl, j: Integer): boolean; PROCEDURE 
s wa p ( i , j: i nt eger ) VAR error: boolean); 

FUNCTION Si gnOf X( x: Extended): boolean; 

FUNCTI ON FP.Newfn: longint): longint; 

PROCEDURE FPSizefx: Extended; VAR sgn: integer; VAR class: NumClass; 
VAR si ze: FPType) ; 

PROCEDURE FP Fr ee Asci i ( x: Extended; width: integer; form: Free Format; 

VAR s: Decst r) ; 

PROCEDURE Fin Npvffirst, last, net: integer; rate: Extended; 
VAR Npv: Extended; PROCEDURE 
pay ment ( i : integer; VAR pmt: Extended)); 

PROCEDURE Fi n_ Ret ur n( f i rst , last: integer; negperiod, posperiod: integer; 
negrate, posrate: Extended; VAR ncs: integer; 
VAR ret: Extended; PROCEDURE 
paymentfi: integer; VAR pmt: Extended)); 

PROCEDURE Mat Mu I t ( n , p, m: integer; overlap: boolean; VAR error: boolean; 
PROCEDURE af etchfi , j : i nteger; 
VAR aij : Ext ended) PROCEDURE 

xfetchfi, j: integer; VARxij: Ext ended) PROCEDURE 
bstoreji, j: integer; bij: Extended)); 

PROCEDURE QR Fact or ( n, p: integer; pivot: boolean; VAR QR: P QR Record; 
PROCEDURE afetchfi, j: integer; VAR ai j : "Extended) ) ; 

PROCEDURE QR Condi ti on( QR: P QR Record; VAR cond: Extended); 

PROCEDURE QR_ Deter mi nant ( QR: P QR Record; VARdet: Extended); 

PROCEDURE QR Solvefm: integer; QR: P QR Record; VAR error: boolean; PROCEDURE 
bfetchfi, j: integer; VAR bij: Extended); PROCEDURE 
xstoreji, j: integer; xij: Extended)); 

PROCEDURE QR Re s i dual ( n, p: integer; m: integer; PROCEDURE 



af et ch 
bfetchf 
xfetch( 
rstorej 



J 



i nteger; VAR ai j 
i nteger; VAR bi j 
i nteger; VAR xi j 



Extended); PROCEDURE 
Extended); PROCEDURE 
Extended); PROCEDURE 



i nteger; r i j : Extended) ) ; 



PROCEDURE QRI mprovel m: integer; QR: P QR Record; VAR error: boolean; 



PROCEDURE afetch 

PROCEDURE bfetchf 

PROCEDURE xfetchf 

PROCEDURE xstorel 



i nteger; VAR ai j 
i nteger; VAR bi j 
i nteger; VAR xi j 



Extended) ; 
Extended) ; 
Extended) ; 



i nteger; xij: Extended) ) ; 



PROCEDURE QR TranSol ve( m: integer; QR: P QR Record; VAR error: boolean; 

PROCEDURE bfetchfi, |: integer; VAR bij: Extended); 
PROCEDURE xstorefi, j: integer; xij: Extended)); 

PROCEDURE QR TranDetermi nant ( QR: P QR Record; VARdet: Extended); 

PROCEDURE X2 L Dec ( f : DecForm; x: Extended; VAR y: LongDeci mal ) ; 

PROCEDURE L Dec 2X( pr ec : RoundPreci si on; x: LongDeci mal ; VAR y: Extended); 

PROCEDURE Math Sol ve( est 1, est 2: Extended; VAR result: Extended; PROCEDURE 
f (x: Extended; VAR f x: Extended)); 
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000128 ******************************************************************************* 

000129 * 

000130 * THAT' S ALL FOLKS . .. 

000131 * 

000132 ******************************************************************* 

000133 

End of File -- Lines: 133 Characters: 4707 
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Fl LE: "LI SA LI B 3 MEMMAN.TEXT" 



000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : MEMMAN 

000004 * 

V U V U V J 

000006 

000007 USES {$U + } MEMMAN; 

000008 

000009 

000010 { $ I F C islntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 { $1 FC SrcOnOS } 

000016 ( * $U OBJ / PASDEFS. OBJ *) PasDefs; 

000017 {$ELSEC } 

000018 ( * $U OBJ : PASDEFS. OBJ *) PasDefs; 

000019 {SENDC } 
000020 

000021 CONST 

000022 

000023 

000024 Nul I Item = - 32768; 

000025 

000026 TYPE 

000027 MMStatus = ( MMAI I oc, MMFree); 

000028 MMStore = A MMStatArr; 

000029 PMMStatRow = A MMStatRow; 

000030 MMStatArr = ARRAY [ - 128. . 127] OF PMMStatRow; 

000031 MMStatRow = PACKED ARRAY [ - 128. . 127] OF MMStatus; 

000032 MMHandle = A MMRec; 

000033 MMRec = RECORD 

000034 maxEl ement s, curEI ements: longint; 

000035 FirstFree: longint; 

000036 mstore: MMStore; 

000037 END; 

000038 MMbyte = ■ 128. . 127; 

000039 MMI nt Bytes = RECORD 

000040 CASE boolean OF 

000041 true: 

000042 (int: integer); 

000043 false: 

000044 (hi, lo: MMbyte) 

000045 END; 
000046 

000047 PROCEDURE I nit MemfVAR mem: MMHandle; numElements: longint; FUNCTION 

000048 GetMorefn, row: integer): boolean); 
000049 

000050 FUNCTION MMAI locate! mem: MMHandle; FUNCTION 

000051 Get Mo r e ( n , row: integer): boolean): integer; 
000052 

000053 PROCEDURE Reserve! mem: MMHandle; i: integer; FUNCTION 

000054 GetMorefn, row: integer): boolean); 
000055 

000056 PROCEDURE Free) mem: MMHandle; i: integer); 

000057 

000058 FUNCTION I s F r e e ( me m: MMHandle; i: integer): boolean; 

000059 

000060 PROCEDURE EachAI I ocated( mem: MMHandle; PROCEDURE 

000061 visitfi: integer)); 
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000062 

000063 PROCEDURE HeapAl I oc ( VAR p: MemPtr; n: longint; m: longint); 

000064 

000065 FUNCTI ON MMRows ( n: longint): integer; 

000066 

000067 FUNCTION NullMorefn, row: integer): boolean; 

000068 

000070 * 

000071 * THAT' S ALL FOLKS . .. 

000072 * 

000073 ******************************************************************* 

000074 

End of File ■■ Lines: 74 Characters: 2079 
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FILE: " 


LI SA LI B 3 MENUS. TEXT" 


000001 


),**),*),*),),***),),***),),),),),),),),),),),),),**),***),),*),*),*),),**),),),*),),),),******),***),****),**),),),),),), 


000002 


* 


000003 


* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : MENUS 


000004 


* 


000005 


******************************************************************************* 


000006 




000007 


USES {$U + } MENUS; 


000008 




000009 




000010 


1 NTRI NSIC SHARED; 


000011 




000012 


1 NTERFACE 


000013 




000014 


USES 


000015 


{$U 1 i bhw/HWInt } HWI nt, 


000016 


{$U 1 i bsm/UnitStd } Uni tStd, 


000017 


{$U 1 i bs m/ Uni t Hz } Uni t Hz , 


000018 


{$U 1 i bqd/ Storage } Storage, 


000019 


{$U 1 i bqd/ Qui ckDraw } QuickDraw, 


000020 


{$U 1 i bf m/ Font Mgr } Font Mg r , 


000021 


{$U 1 i bos/SysCal 1 } SysCal 1, 


000022 


{$U 1 i bwm/ Events } Events, 


000023 


{$U 1 i bwm/ Wi ndows } Windows, 


000024 


{$U 1 i bwm/ Fol ders } Fol ders; 


000025 




000026 


CONST 


000027 


ma x 1 1 e m =31; 


000028 


n o Ma r k = ; 


000029 


vertSpace = 15; 


000030 


{$1 FC wmOs } 


000031 


checkMark = ccCheck; 


000032 


appleMark = ccApple; 


000033 


{$ELSEC} 


000034 


checkMark = 142; 


000035 


apple Ma rk = 143; 


000036 


{$ENDC} 


000037 




000038 


TYPE 


000039 


MenuPt r = A Menul nf o; 


000040 


Menul nfo = RECORD 


000041 


menuld: INTEGER; 


000042 


menuWidth: INTEGER; 


000043 


menuHeight: INTEGER; 


000044 


DrawProc: ProcPtr; 


000045 


ChooseProc: ProcPtr; 


000046 


enableFlags: PACKED ARRAY [ 0. . maxl tern] OF BOOLEAN; 


000047 


menuDat a: Handl e; 


000048 


END; 


000049 


r Menul nfo = ARRAY [0..0] OF Menul nfo; 


000050 


r MenuPt r = A r Menul nfo; 


000051 


1 temPtr = A Str255; 


000052 




000053 


VAR 


000054 


menuDelay: INTEGER; 


000055 


deskt opMenu: ARRAY [0..1] OF Menul nfo; 


000056 




000057 


PROCEDURE Cal cMenuSi ze(VAR menu: Menulnfo); 


000058 




000059 


PROCEDURE Checkl t em( VAR menu: Menulnfo; item: INTEGER; checked: BOOLEAN); 


000060 




000061 


PROCEDURE ChooseTxt 1 tem( VAR menu: Menulnfo; menuRect: Rect; hitPt: Point; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 



Apple Lisa Computer Technical Information 

VAR whi c hi t em: INTEGER); 
PROCEDURE CI ear MenuBar; 
PROCEDURE Del et eMenu( menul d: INTEGER); 
PROCEDURE Di sabl el tem( VAR menu: Menulnfo; item: INTEGER); 
PROCEDURE Di sabl e Me n u ( VAR menu: Menulnfo); 
PROCEDURE DrawMenuBar; 

PROCEDURE DrawTxt Menu) VAR menu: Menulnfo; menuRect: Rect); 
PROCEDURE Enabl e 1 1 e m( VAR menu: Menulnfo; item: INTEGER); 
PROCEDURE Enabl eMenu( VAR menu: Menulnfo); 

PROCEDURE Get 1 1 em( VAR menu: Menulnfo; item: INTEGER; itemString: ItemPtr); 
PROCEDURE Hi Li t eMenu( menul d: INTEGER); 
PROCEDURE I nitMenus; 

PROCEDURE I nser t Menu( VAR menu: Menulnfo; beforeld: INTEGER); 
PROCEDURE Mar kl t e m( VAR menu: Menulnfo; item: INTEGER; whichMark: INTEGER); 
PROCEDURE MenuSel ect ( st art Pt : Point; VAR whi chMenu, whi c hi tern: INTEGER); 
PROCEDURE MenuKeyfch: CHAR; VAR whi chMenu, whichltem: INTEGER); 
PROCEDURE ReadMenufVAR menuFile: TEXT; VAR menu: Menulnfo); 

PROCEDURE Set 1 1 em( VAR menu: Menulnfo; item: INTEGER; itemString: ItemPtr); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 



Li nes: 103 Characters: 2851 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 78 of 196 



Apple Lisa Computer Technical Information 



Fl LE: "LI SA LI B 3 OBJ I 0. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : OBJ I O 

USES {$U + } OBJ 10; 

{$1 FC isl ntrin} I NTRI NSIC; {$ENDC} 

I NTERFACE 

USES 

{$1 FC SrcOnOS } 

(*$U OBj/PASDEFS.OBj *) PasDefs, 
(*$U OBj/FI LEIO.OBj *) Fi I el O; 
{$ELSEC } 

(*$U OBJ : PASDEFS. OBJ *) PasDefs, 
(*$U OBJ : Fl LEIO.OBj *) Fi I el O; 
{$ENDC } 
CONST 



TMAXSEGS = 4096; 

TMAXUNITS = 4096; 

TMAXFI LES = 1024; 

TMAXSYSS = 127; 

DLTASEGS = 128; 

DLTAUNITS = 128; 

DLTAFI LES = 32; 

DLTASYSS = 16; 



TYPE 



BlockType = ( Mod u I eNa me, EndBlock, EntryPoint, External, St art Address, 

CodeBlock, Relocation, CommonReloc, CommonDef, 
Short External , DlnitDef, DlnitData, DlnitRef, DlnitDRef, 
QuickLoad, 01 dExecut abl e, Li b Mod u I e, LibEntry, UnitBlock, 
InterfLoc, Physi cal Exec, Executable, VersionCtrl, 
Segment Tabl e, UnitTable, SegLocation, OldUntLoc, 
StringBlock, MACExecut abl e, PackedCode, PackTable, 
Dl ni tCRef , 

Sof tSystem, 

Uni t Locat i on, OSData, DebugSymbol s, DebugEntry, 
DebugCommon, EOF Ma r k, UnknownBI ock) ; 

NoVariant, RefVariant, ShortRef, ModVariant, Comments, 
SegVariant, UnitVariant, I ntf LocVar i ant , SegLocVar i ant , 
Uni t LocVar i ant, 01 dULVar i ant , St r i ngVar i ant, 
Sf t SysVar i ant , J umpTVar i ant , J TSegVari ant , ObjectCode, 
ProcHeap, OldJumpTV, OldjTSegV, MACJ umpTV, J ump4TV, 
UnknownVar i ant ) ; 

Fi I eAddr = I ongi nt ; 

MemAddr = I ongi nt ; 

SegAddr = I ongi nt ; 

ObjFileType = (OldObjFile, I UDi rectory, lULibrary, MainProg, IntrinUnit, 
RegUnit, Reg Mod u I e , Dbg F i I e , PITFile); 



{$1 FC isSAndE} 

{$ENDC} 

Var i antType 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 79 of 196 



Apple Lisa Computer Technical Information 



000062 






000063 


VersNum = 


■ 1..127; 


000064 


VersVal 


RECORD 


000065 




CASE bool ean OF 


000066 




true: 


000067 




( VersLong: 1 ongi nt ) ; 


000068 




f al se: 


000069 




(System, Release, Version, 1 nt er FLevel : 


000070 




END; 


000071 






000072 


ModVal 


RECORD 


000073 




CASE bool ean OF 


000074 




true: 


000075 




( Modi nt : i nteger) ; 


000076 




f al se: 


000077 




(Impl Level, FixLevel: VersNum) 


000078 




END; 


000079 






000080 


i Ref Vari ant = 


SegAddr; 


000081 


iShortRef = 


i nteger; 


000082 


i Mod Va r i ant = 


i nteger; 


000083 






000084 


i SegVari ant = 


RECORD 


000085 




SegName: NameSt r i ng; 


000086 




SegNumber : i nteger; 


000087 




Versi onl: 1 ongi nt ; 


000088 




Versi o n 2 : 1 ongi nt ; 


000089 




END; 


000090 






000091 


i Uni t Vari ant = 


RECORD 


000092 




Uni t Name: NameSt r i ng; 


000093 




Uni t Number: i nteger; 


000094 




Uni t Type: i nteger; 


000095 




END; 


000096 






000097 


i 1 ntf LocVar i ant 


= RECORD 


000098 




Uni t Name: NameSt r i ng; 


000099 




IfLoc: FileAddr; 


000100 




END; 


000101 






000102 


i SegLocVar i ant 


= RECORD 


000103 




SegName: NameSt r i ng; 


000104 




SegNumber: i nteger; 


000105 




UseDescPt r : 1 ongi nt ; 


000106 




UseCount: integer; 


000107 




SysNumber : i nteger; 


000108 




Fi 1 eNumber : i nteger; 


000109 




Fi 1 eLocat ion: Fi 1 eAddr; 


000110 




Si zePacked: i nteger; 


000111 




Si zeUnpacked: i nteger; 


000112 




END; 


000113 






000114 


iOldULVariant = 


RECORD 


000115 




Uni t Name: NameSt r i ng; 


000116 




Uni t Number: i nteger; 


000117 




FileNumber, UnitType: FileByte; 


000118 




Dat aSi ze: 1 ongi nt ; 


000119 




END; 


000120 






000121 


i Uni t LVar i ant = 


RECORD 


000122 




Uni t Name: NameSt r i ng; 


000123 




Uni t Number: i nteger; 


000124 




ShrdDat aPt r : longint; 


000125 




UseCount, SysNumber, FileNumber, DataPtrldx, 


000126 




Uni t Type: i nteger; 


000127 




Dat aSi ze: 1 ongi nt ; 
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000128 






END; 




000129 










000130 


{$1 FC isSAn 


dE} 






000131 


i Sf t SysVari 


ant 


= RECORD 




000132 






DSysl dx: i nt eger; 




000133 






DVersI d: 1 ongi nt ; 




000134 






END; 




000135 


{$ENDC} 








000136 










000137 


i St r i ngVar i 


ant 


= RECORD 




000138 






Obj ect Number: i nteger; 




000139 






NameAddr : Fi 1 eAddr; 




000140 






END; 




000141 










000142 


i J umpTVar i ant = 


RECORD 




000143 






J umpL: i nteger; 




000144 






AbsAddr: MemAddr; 




000145 






END; 




000146 










000147 


iOldj umpTV 


= 


RECORD 




000148 






Rel Offset: 1 ongi nt; 




000149 






Noop: i nteger; 




000150 






J ump: i nteger; 




000151 






PCRel : i nteger; 




000152 






END; 




000153 










000154 


i MACj umpTV 


= 


RECORD 




000155 






Rel Offset : i nteger; 




000156 






MoveW: i nteger; 




000157 






SegNum: i nteger; 




000158 






Trapl nst : i nteger; 




000159 






END; 




000160 










000161 


i J ump4TV 


= 


RECORD 




000162 






J umpPC: i nteger; 




000163 






RelOffSet: integer; 




000164 






END; 




000165 










000166 


i 01 dJTSegV 


= 


RECORD 




000167 






Addrl: MemAddr; 




000168 






Fi 1 e Loc : Fi 1 eAddr; 




000169 






CodeSi ze: 1 ongi nt ; 




000170 






Me mL o c : Me mAd d r ; 




000171 






RetAddr: MemAddr; 




000172 






Ref Count : 1 ongi nt ; 




000173 






Act i veLi st : MemAddr; 




000174 






Reserved: 1 ongi nt ; 




000175 






END; 




000176 










000177 


i J TSegVar i ant = 


RECORD 




000178 






Segment Addr: Fi 1 eAddr; 




000179 






Si zePacked: i nteger; 




000180 






Si zeUnpacked: i nteger; 




000181 






Me mL o c : Me mAd d r ; 




000182 






END; 




000183 










000184 


i Modul eName 


= 


RECORD 




000185 






Modul eName, Segment Name: 


NameSt r i ng; 


000186 






CSi ze: 1 ongi nt ; 




000187 






END; 




000188 










000189 


i EndBI ock 


= 


RECORD 




000190 






CSi ze: 1 ongi nt ; 




000191 






END; 




000192 










000193 


i Ent ryPoi nt 


= 


RECORD 
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000194 




LlnkName, UserName: NameStrlng; 


000195 




Loc: SegAddr; 


000196 




END; 


000197 






000198 


i External = 


RECORD 


000199 




LlnkName, UserName: NameStrlng; 


000200 




END; 


000201 






000202 


i St art Address = 


RECORD 


000203 




Start: SegAddr; 


000204 




GSI ze: 1 ongl nt ; 


000205 




END; 


000206 






000207 


iCodeBlock = 


RECORD 


000208 




Addr: SegAddr; 


000209 




END; 


000210 






000211 


i Rel ocat i on = 


RECORD 


000212 




Reserved: 1 nt eger; 


000213 




END; 


000214 






000215 


i CommonRel ocat i 


on = RECORD 


000216 




CommonName: NameStrlng; 


000217 




END; 


000218 






000219 


i CommonDef i ni t i 


on = RECORD 


000220 




CommonName: NameStrlng; 


000221 




DSI ze: 1 ongl nt; 


000222 




END; 


000223 






000224 


i Short External 


= RECORD 


000225 




LlnkName, UserName: NameStrlng; 


000226 




END; 


000227 






000228 


1 Dl nl t Def = 


RECORD 


000229 




dareaName: NameSt r 1 ng; 


000230 




DSI ze: 1 ongl nt ; 


000231 




END; 


000232 






000233 


1 Dl nl t Data = 


RECORD 


000234 




dar eaName: NameSt r i ng; 


000235 




dAddr : 1 ongl nt ; 


000236 




DSI ze: 1 ongl nt ; 


000237 




END; 


000238 






000239 


i Dl nit Ref 


RECORD 


000240 




d ar eaName: NameSt r i ng; 


000241 




END;" 


000242 






000243 


i Dl ni t DRef 


RECORD 


000244 




dareaName: NameSt r i ng; 


000245 




d Of f : 1 ongl nt ; 


000246 




r Ar eaName: NameSt rl ng; 


000247 




END; 


000248 






000249 


IQulckLoad = 


RECORD 


000250 




StartLoc: SegAddr; 


000251 




Dat aSI ze: 1 ongl nt ; 


000252 




END; 


000253 






000254 


i L i b Mo d u 1 e = 


RECORD 


000255 




Mod ul eName: NameSt rl ng; 


000256 




Mod S i ze: 1 ongl nt ; 


000257 




Code Add r , Text Addr : FlleAddr; 


000258 




Text Size: 1 ongl nt ; 


000259 




Nr Mods: 1 nt eger; 
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000260 




END; 


000261 






000262 


i Li bEnt r y = 


RECORD 


000263 




LI nkName: NameSt r 1 ng; 


000264 




Mod ul e: 1 nt eger; 


000265 




Address: SegAddr; 


000266 




END; 


000267 






000268 


i Uni t Bl ock = 


RECORD 


000269 




Uni t Name: NameSt r 1 ng; 


000270 




Code Add r , Tex t Add r : FlleAddr; 


000271 




TextSIze, GlobalSize: longlnt; 


000272 




Uni t Type: 1 nteger; 


000273 




END; 


000274 






000275 


i 1 nt erf Loc = 


RECORD 


000276 




Reserved: 1 nteger; 


000277 




END; 


000278 






000279 


i Exec ut a bl e = 


RECORD 


000280 




JTLaddr: MemAddr; 


000281 




JTSize, DataSIze, Ma 1 n Si z e , JTSegDelta, StkSegDe 


000282 




DynStack, Max St a c k, MlnHeap, MaxHeap: longlnt; 


000283 




END; 


000284 






000285 


i 01 dExecut abl e 


= RECORD 


000286 




JTLaddr: MemAddr; 


000287 




J TSI ze, DataSI ze: 1 ongl nt ; 


000288 




END; 


000289 






000290 


i Physi cal Exec = 


RECORD 


000291 




JTLaddr: MemAddr; 


000292 




JTSIze, DataSIze, MalnSIze, JTSegDelta, 


000293 




StkSegDelta: longlnt; 


000294 




END; 


000295 






000296 


i MACExecut abl e 


= RECORD 


000297 




JTLaddr: MemAddr; 


000298 




JTSIze, DataSIze, MalnSIze, JTSegDelta, 


000299 




St kSegDel ta: 1 ongl nt; 


000300 




END; 


000301 






000302 


i Versi onCt r 1 = 


RECORD 


000303 




CASE bool ean OF 


000304 




true: 


000305 




(sysNum, mlnSys, maxSys, Reservl, Reser v2, 


000306 




Re s e r v 3 : 1 ongl nt ) ; 


000307 




f al se: 


000308 




( Fi 1 eType: Obj Fi 1 eType; 


000309 




1 LI bNum: VersNum; 


000310 




Conflg: VersVal; 


000311 




Mod Leve 1 : ModVal ; 


000312 




1 ntf Ti me, 1 mpl Tl me: 1 ongl nt ; 


000313 




MlnConflg, MaxConflg: VersVal); 


000314 




END; 


000315 






000316 


i Segment Tabl e = 


RECORD 


000317 




nSegment s: 1 nteger; 


000318 




END; 


000319 






000320 


i Uni t Ta bl e 


RECORD 


000321 




nUnl t s, maxunl t : 1 nteger; 


000322 




END; 


000323 






000324 


1 SegLocat 1 on = 


RECORD 


000325 




nSegment s: 1 nteger; 
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000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 



END; 

i 01 dUntLoc = RECORD 

nUni t s: i nt eger; 
END; 

i Uni t Locat i on = RECORD 

nUni t s: i nt eger; 
END; 



i OSData 



i St r i ngBI ock 



{$1 FC i sSAndE} 
iSoftSystem 



{$ENDC} 
i PackedCode 



i PackTabl e 



i Dl ni tCRef 



RECORD 

Reserved: i nt eger; 
END; 

RECORD 

nSt r i ngs: i nt eger; 
END; 



RECORD 

SysNumber : i nt eger; 

Publ i cSeg: i nteger; 

SysVersion: VersVal; 

Reserved: I ongi nt ; 
END; 



RECORD 

Addr: MemAddr; 

CSi ze: I ongi nt ; 
END; 

RECORD 

packversi on: I ongi nt ; 
END; 

RECORD 

dar eaName: NameSt r i ng; 
d Of f : I ongi nt ; 
ent ryName: NameSt ri ng; 
END; 



i DebugSymbol s = RECORD 

UserName, SegName: NameString; 

ProcBase, ProcSyms, ProcStmt, ProcNode, 

UsesSi ze: I ongi nt; 

HoleBase, HoleTop, MapBase, MapTop: longint; 

MapName: NameSt r i ng; 
END; 

i De bug En t ry = RECORD 

UserName: NameSt r i ng; 
Ent rySeg: I ongi nt ; 
EntryLoc: SegAddr; 
END; 

i DebugCommon = RECORD 

Uni t Name: NameSt r i ng; 
CommonBase: MemAddr; 
END; 

i Unknown = RECORD 

{ not hi ng here } 
END; 

Obj Block = RECORD 
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000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 



Var i ant : 
NrVar i ant s: 



Vari ant Type; 
Longl nt ; 



CASE Bloc kHeader 
Mod ul eName 
EndBI ock 
Ent ryPoi nt 
External 
St art Address 
Code Bl ock 
Re I ocat I on 
CommonRel oc 
CommonDef 
Short External 
Dl ni t Def 
Dl nl t Data 
Dl ni t Re f 
Dl ni t DRef 
Qui ckLoad 
01 dExecut abl e 
L i b Mo d u I e 
Li bE nt ry 
UnitBI ock 
I nterf Loc 
Physi cal Exec 
MACExecutabl e 
Execut abl e 
Versi onCt r I 
Segment Tabl e 
UnitTabl e 
SegLocat i on 
Uni t Locat i on 
01 dUnt Loc 
St ri ng Bl ock 
PackedCode 
PackTabl e 
Dl nitCRef 
{ $ I F C i s SAndE } 
SoftSystem : 
{SENDC} 
OSData 

DebugSymbol s 
DebugEnt ry 
DebugCommon 
UnknownBI ock 



Obj Var Bl oc k 



END; 

RECORD 
CASE Va 
RefV 
Shor 
ModV 
SegV 
Unit 
I ntf 
SegL 
Unit 
{$IF 
SftS 
{$EN 
01 dU 
Stri 
01 dj 
MACj 
J ump 
01 dj 



r Header 
a r i ant 

tRef 
a r i ant 
a r i ant 

Vari ant 
LocVar i ant 
ocVari ant 
LocVar i ant 
C i s SAndE } 
ysVari ant 
DC} 

LVariant 
ngVari ant 
umpTV 
umpTV 
4TV 
TSegV 



lockTy 
b Mo d u I 
bE nd Bl 
bE nt ry 
bE xt er 
bStart 
bCodeB 
b Re I oc 
bCommo 
bCommo 
bShort 
b Dl nit 
b Dl nit 
b Dl nit 
b Dl nit 
bQui ck 
bOldEx 
b L i bMo 
b L i bEn 
bUnitB 
bl nt er 
bPhysi 
bMACEx 
bExecu 
bVersi 
bSegme 
bUnitT 
bSegLo 
bUnitL 
bOldUn 
bSt ri n 
bPacke 
bPackT 
b Dl nit 



pe OF 
eName 
ock 
Poi nt 
nal 

Address 
lock 
at i on 
n Re I oc 
n Def 

External 
Def 
Data 
Ref 
DRef 
Load 

ecutabl e 
dul e 
t ry 
lock 
f Loc 
cal Exec 
ecutabl e 
table 
onCtrl 
nt Tabl e 
abl e 
cat i on 
ocat i on 
t Loc 
g B I ock 
dCode 
abl e 
CRef 



bSof tSystem 

bOSData 

b De bug Sy mbo I s 

bDebugEnt ry 

bDebugCommon 
bUnknown 



Modul eName) ; 
EndBI ock) ; 
Ent ryPoi nt ) ; 
External ) ; 
StartAddress); 
Code Bl ock); 
Rel ocat i on) ; 
CommonRel oc) ; 
CommonDef ) ; 
Short Ext er nal ) ; 
Dl ni t Def ) ; 
Dl ni tData) ; 
Dl ni tRef ); 
Dl ni t DRef ) ; 
Qui ckLoad) ; 
01 dExecutabl e); 
Li b Modul e) ; 
Li b E nt ry) ; 
UnitBI ock); 
I nterf Loc) ; 
Physi cal Exec) ; 
MACExecutabl e) ; 
Executabl e); 
Versi onCtrl ); 
Segment Tabl e) ; 
UnitTabl e); 
SegLocat i on) ; 
Uni t Locat i on) ; 
OldUntLoc); 
Stri ng Bl ock) ; 
PackedCode) ; 
PackTabl e) ; 
Dl ni t CRef ); 

i SoftSystem); 

i OSData) ; 
i DebugSymbol s) ; 
i DebugEnt ry); 
i DebugCommon) ; 
i UnknownBI ock) ; 



Vari ant Type OF 
bRef Vari ant 
bShor t Ref 
b Mo d Va r i ant 
bSegVar i ant 
bUni t Var i ant 
bl ntf LocVar i ant 
bSegLoc Var i ant 
bUnitLVari ant 



Ref Vari ant) ; 
Short Ref ) ; 
ModVar i ant ) ; 
SegVari ant) ; 
Uni t Var i ant ) ; 
I ntf LocVar i ant ) 
SegL o c Va r i ant) ; 
Uni t LVa riant): 



bSf tSysVari ant : i Sf t SysVari ant ) ; 



bOldULVariant 
bSt ri ngVar i ant 
bOldj umpTV 
bMACj umpTV 
bj ump4TV 
bOI dJTSegV 



iOldULVariant); 
i St ri ngVari ant ) ; 
iOldj umpTV); 
i MACJ umpTV); 
i J ump4TV) ; 
i 01 dJTSegV); 
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000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 



Obj Handl e 
Obj Desc 



J umpTVar i ant : ( bj umpTVari ant 
J TSegVa riant : ( bj TSegVar i ant 
END; 

A Obj Desc; 

RECORD 

ObjFile: FileHandle; 

Next Bl oc k: FileAddr; 
END; 



i J umpTVari ant ) ; 
i J TSegVari ant) 



VAR 



VariantSize: ARRAY [ Var i ant Type] OF integer; 
01 Al I owAbort : BOOLEAN; 

PROCEDURE I nitObj Fi le(VAR Obj Ptr: Obj Handl e; nBlocks: integer); 

PROCEDURE OpenObj Fi I e(VAR Obj Ptr: Obj Handl e; FileName: LString; 

NewFi I e: bool ean) ; 

PROCEDURE ZeroObj EndfObj Ptr: Obj Handle); 

PROCEDURE CI oseObj Fi I e( Obj Ptr: Obj Handl e; Save: boolean); 

PROCEDURE Get Obj Pt r ( Obj Ptr: Obj Handl e; VAR BytePtr: FileAddr); 

PROCEDURE Get Obj Bl oc kPt r ( Obj Ptr: Obj Handl e; VAR BytePtr: FileAddr); 

PROCEDURE Set Obj Pt r ( Obj Ptr: Obj Handl e; BytePtr: FileAddr); 

PROCEDURE Set Obj Bl oc kPt r ( Obj Pt r : Obj Handl e; BytePtr: FileAddr); 

PROCEDURE Ski pObj By t e s ( Obj Ptr: Obj Handl e; NrBytes: longint); 

PROCEDURE Set Obj I nvar ( VAR B: Obj Block; InvarType: BlockType; 

Var Si ze: I ongi nt ) ; 

PROCEDURE Copy Obj Se q ( I n Ob j , Out Obj : Obj Handle; NrBytes: integer); 

PROCEDURE Get Obj I nvar ( Obj Pt r: Obj Handle; VAR Stuff: Obj Block); 

PROCEDURE Get Obj Var ( Obj Ptr: Obj Handl e; VarType: Var i ant Type; 
VAR Stuff: Obj Var Bl oc k) ; 

PROCEDURE Get Obj Name( Obj Pt r : Obj Handl e; VAR N: NameString); 

PROCEDURE GetObj SeqIObj Ptr: Obj Handl e; Stuff: Ptr; NrBytes: integer); 

PROCEDURE Get Obj Byt e( Obj Ptr: Obj Handle; VAR B: Byte); 

PROCEDURE Get Obj Wbrdf Obj Ptr: Obj Handl e; VAR W: integer); 

PROCEDURE GetObj Long( Obj Ptr: Obj Handl e; VAR L: longint); 

PROCEDURE Put Obj I nvar ( Obj Pt r : Obj Handle; VAR Stuff: Obj Block); 

PROCEDURE Put Obj Var ( Obj Pt r : Obj Handle; VarType: Var i ant Type; 
VAR Stuff: Obj Var Bl oc k) ; 

PROCEDURE Put Obj Na me ( Obj Pt r : Obj Handl e; N: NameString); 

PROCEDURE PutObj SeqIObj Ptr: Obj Handle; Stuff: Ptr; NrBytes: integer); 

PROCEDURE Put Obj Byt e( Obj Ptr: Obj Handl e; B: Byte); 

PROCEDURE Put Obj Wor d( Obj Ptr: Obj Handl e; W: integer); 
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000524 

000525 PROCEDURE PutObj Long(Obj Ptr: Obj Handl e; L: longint); 

000526 

000528 * 

000529 * THAT' S ALL FOLKS . .. 

000530 * 

V V V J J X 

000532 

End of File -- Lines: 532 Characters: 19082 
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Fl LE: "LI SA LI B 3 PARTS. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PARTS 

USES {$U+} PARTS; 

{$1 FC isl ntrin} I NTRI NSIC; {$ENDC} 

I NTERFACE 

USES 

{$1 FC SrcOnOS } 

(*$U OBj/PASDEFS.OBj *) PasDefs, 

(*$U OBJ / MEMMAN. OBJ *) MemMan, 

(*$U OBJ/LI STS.OBJ *) Lists; 
{$ELSEC } 

(*$U OBJ : PASDEFS. OBJ *) PasDefs, 

(*$U OBJ : MEMMAN. OBJ *) MemMan, 

(*$U OBJ : LI STS.OBj *) Lists; 
{$ENDC } 

TYPE 



CI ass = i nteger; 

Member = i nteger; 

MemberRec = RECORD 

me mb e r Of : Class; 

nextMember: Member; 

first Member: Member; 
END; 
MemRowPtr = A MemRow; 

MemRow = ARRAY [ - 128. . 127] OF MemberRec; 

MemArrPtr = A MemArr; 

MemArr = ARRAY [ ■ 128. . 127] OF MemRowPtr; 

PRHandl e = "Part i t i on; 

Partition = RECORD 

nClasses, nMembers: longint; 

classes, members: MemArrPtr; 
END; 
Part Handl e = "Part Obj ect; 
PartObject = RECORD 

storP: PRHandl e ; 

part L: Li st Handl e; 
END; 

PROCEDURE NewCI ass( part H: Part Handl e; cl: Class); 

PROCEDURE AddMember ( part H: PartHandle; mem: Member; cl: Class); 

PROCEDURE Del eteMemberf part H: PartHandle; mem: Member; cl: Class); 

FUNCTION I sEmptyCI ass( part H: PartHandle; cl: Class): boolean; 

PROCEDURE EachMember( part H: PartHandle; cl: Class; PROCEDURE 
Vi si t ( m: Member) ) ; 

FUNCTION Cl assOf ( par t H: PartHandle; mem: Member): Class; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 



PROCEDURE RevMember s( par t H: Part Handl e; cl: Class); 

PROCEDURE I nitPLists; 

FUNCTION Mor eMember s( par t H: Par t Handl e; n, newRow: Integer): boolean; 

FUNCTION MoreCI assesf part H: PartHandle; n, newRow: Integer): boolean; 

FUNCTION I ni t Pa r t i t i on( nCI , nMem: longlnt; abst: PartHandle): PartHandle; 

******************************************************************************* 
* 

* THAT' S ALL FOLKS . .. 

* 



End of File 



LI nes: 78 Characters: 2253 
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Fl LE: "LI SA LI B 3 PASDEFS. TEXT" 



000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PASDEFS 

000004 * 

V U V U V J 

000006 

000007 USES {$U+} PASDEFS; 

000008 

000009 

000010 { $ I F C islntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 { $1 FC SrcOnOS } 

000016 {$U OBj/STDUNIT } STDUNI T; 

000017 {$ELSEC } 

000018 {$U OBj : STDUNI T } STDUNI T; 

000019 {SENDC } 
000020 

000021 {$SETC RANGEF = } 

000022 {$SETC DEBUGF = } 

000023 {$SETC I NFOF = 1 } 
000024 

000025 CONST 

000026 

000027 

000028 NameStrLen = 8; 

000029 MaxLStri ngLen = 79; 

000030 Blank = ' '; 

000031 Empty = " ; 
000032 

000033 TYPE 

000034 NameString = PACKED ARRAY [ 1. . NameStrLen] OF char; 

000035 LString = St ri ng[ MaxLSt ri ngLen] ; 

000036 PLStri ng = A LStri ng; 

000037 MemPt r = A i nteger; 

000038 ProcPt r = A i nteger; 
000039 

000040 VAR 

000041 errors: i nteger; 

000042 ListingFile: Text; 

000043 ListFlag: boolean; 
000044 

000045 PROCEDURE I nitPasDefs; 

000046 

000047 PROCEDURE PasHalt; 

000048 

000049 PROCEDURE SumErrors; 

000050 

000051 PROCEDURE Warni ng(s: LString); 

000052 

000053 PROCEDURE Error(s: LStri ng); 

000054 

000055 PROCEDURE Fatal Errorfs: LString); 

000056 

000057 

000058 

000059 * THAT' S ALL FOLKS 

000060 

000061 



* 
* 
* 
******************************************************************************* 
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000062 

End of File -- Lines: 62 Characters: 1217 
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Fl LE: "LI SA LI B 3 PASHEAP. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PASHEAP 

USES {$U+} PASHEAP; 

I NTRI NSIC; 
I NTERFACE 



USES 



( *$U I i bos/ syscal I . obj *) syscal I ; 



TYPE 
PHTB 
PHTP 



128. .127; 
"PHTB; 



PROCEDURE PL I Nl THE AP( VAR ernum, refnum: integer; size, delta: longint; 
Idsn: integer; swapable: boolean); 

PROCEDURE %NEW(VAR ptr: PHTP; size: integer); 

PROCEDURE %NEWL( VAR ptr: PHTP; Isize: longint); 

PROCEDURE %. MARK( VAR ptr: PHTP); 

PROCEDURE %_RELSE( VAR ptr: PHTP); 

FUNCTION %.MEMAV: LONGI NT; 

FUNCTION % HHeapRes: integer; 

PROCEDURE % pphhprei nit; 

PROCEDURE % pphhrei nit; 

FUNCTION %_ p h wo r d s a v a i I : longint; 

PROCEDURE %_ d i s p ( VAR ptr: PHTP; size: longint); 

******************************************************************************* 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS 



End of File 



Li nes: 49 Characters: 1057 
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Fl LE: "LI SA LI B 3 PMDECL. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PMDECL 

USES {$U+} PMDECL; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U I i bos/ syscal I } syscal I ; 

CONST 

ThreshHold = 8; 



TYPE 
TNi 
TBo 



Tl nputStuf f 



Tl nternal Stuff 



bble = 0. .15; 

otStuff = RECORD 

Ext endMem: Bool ean; 
BootVol; TNi bble; 
END; 
TOut Put St uf f = RECORD 

NormCont: TNi bbl e; 
DimCont: TNi bbl e; 
BeepVol; TNi bbl e; 
Fa de Del ay; TNi bbl e; 
END; 
RECORD 

Begi n Re pea t ; TNi bbl e; 
SubRepeat: TNi bbl e; 
Doubleclick; TNi bbl e ; 
END; 
= RECORD 

MemLoss: i nt eger; 
Mouseon; Bool ean; 
Seal eMouse; Bool ean; 
END; 
eConnect = st ri ng[ 32] ; 
i nfo = RECORD 

versi on; i nteger; 
dr i veri d; I ongi nt; 
bootable; bool ean; 
preload; boolean; 
permanent ; bool ean; 
devicetype; devtype; 
size ext en; i nteger; 
defedinfo: ARRAY [1..3] OF integer; 
r emovabl e; bool ean; 
ejectable; boolean; 
fsstartbl ock; I ongi nt ; 
st artbl ock; I ongi nt ; 
numattach: i nteger; 
numConnect ors; i nteger; 
END; 
cddEntry = RECORD 

drvrname: ename; 
act i ve; i nteger; 



Typ 
Ch 
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cddHeader 



systemCdd 



i nf o: ch i nf o; 
END; 
RECORD 

versi on: i nteger; 

cdcount : i nteger; 
END; 
RECORD 

descr: cddheader; 
END; 



000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 

000072 ******************************************************************** 

000073 * 

000074 * THAT' S ALL FOLKS . .. 

000075 * 

000077 



End of File ■- Lines: 77 Characters: 2435 
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Fl LE: "LI SA LI B 3 PMM. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PMM 

USES {$U+} PMM; 

I NTRI NSIC SHARED; 

I NTERFACE 

USES 

{$U I i bhw/hwi nt} HIM nt, 
{$U I i bos/Syscal I } SysCall, 
{$U I i bsm/UnitStd} UnitStd, 
{$U I i bpm/PMDecl } PMDecl; 
{$SETC DOPXPM ; = FALSE} 

VAR 

PMBeep. Flash; TNibble; 

PROCEDURE Pml n i t ( VAR error; integer); 

PROCEDURE PMReadConf i g( VAR error; integer; VAR Next Entry: longint; 

VAR Conf i g: Conf i gDev) ; 

PROCEDURE PMWri teConf ig(VAR error; integer; VAR Next Entry: longint; 

VAR Conf i g: Conf i gDev); 

PROCEDURE PMReadl nput (VAR Inputlnfo: TlnputStuff); 

PROCEDURE PMWri tel nput ( I nputl nfo: TlnputStuff); 

PROCEDURE PMReadOut Put ( VAR Outputlnfo: TOut put St uf f ) ; 

PROCEDURE PMWri t eOut Put ( Outputl nfo: TOut put St uf f ) ; 

PROCEDURE PMReadBoot ( VAR Bootlnfo: TBootStuff); 

PROCEDURE PMWr i teBoot ( Boot I nfo: TBootStuff); 

PROCEDURE PMWri te; 

FUNCTION Di mConvert( Contrast: Integer): Integer; 

FUNCTI ON Convert Cont ( Contrast : Integer): Integer; 

PROCEDURE PMReadDevol p( VAR I nt r n I I nfo: Tl nt er nal St uf f ) ; 

PROCEDURE PMWri teDevol p( I ntrnl I nfo: Tl nter nal St uf f ) ; 

PROCEDURE DefaultPM; 

PROCEDURE DefaultConf i g; 
{$1 FC DOPXPM} 

PROCEDURE PxPm; 
{SENDC} 
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000062 ****************************************************************** 

000063 * 

000064 * THAT' S ALL FOLKS . .. 

000065 * 

000066 ******************************************************************************* 

000067 

End of File -■ Lines: 67 Characters: 1564 
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Fl LE: "LI SA LI B 3 POOLER. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : POOLER 

USES {$U+} POOLER; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$1 FC OSBui It } 



{$U I 

{$U I 

{$U I 

{$U I 

{$U I 

{$U I 

{$U I 

{$ELSEC } 

{$U OBJ : dbenv. obj } dbenv, 

{$U I NTRLI B. obj } i nternati onal , 

{$U OBj : dbdec I l.obj } dbdecll, 

{$U OBJ : syscal I . obj } syscal I , 

{$U OBJ : I owl evel .obj } I owl evel ; 

{$ENDC } 



bsm/ uni t std. obj } unl t st d, 

bdb/ dbenv. obj } dbenv, 

bi n/ 1 NTRLI Bp. obj } international, 

bdb/ dbdec 1 1. obj } dbdecl 1, 

bos/syscal I . obj } syscal I , 

bos/ psyscal I . obj } psyscal I , 

bdb/ 1 owl evel .obj } I owl evel ; 



Const 



{$SETC NOSWAP 
{$SETC debug : 
{$1 FC PRERELEASE 
{ $SETC debugpool 
{$ELSEC } 
{ $SETC debugpool 
{$ENDC} 

VOmyprodvers = 
myprodvers = 
ni I pt r = 

ni I val = 

fisbtree = 

f hasnul I = 

f master = 

fdetail 
ffileok 
fdata 

wri tenon = 

noerr = 

notfound = 

dupl key = 

eos = 

f i I e empty = 

nobuffs = 

ioerr = 

noroom = 

i nconsi stent = 
badscani d = 



= FALSE } 
FALSE } 
} 



TRUE } 
FALSE } 



0; 



l; 
l; 



404; 
405; 
406; 
407; 
408; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



t i cket overf I ow = 

t i cket changed = 

badrecaddress = 

oddrecsi ze = 

badnsearch = 

bad whi c h = 

i 1 1 egal scan = 

rectoobig = 

not dbf i I e = 

wrongf i I e = 

badversi on = 

hasschema = 

badpagesi ze = 
DBVersi o n Mi s mat c 
DBTooOld 

DBTooNew = 

empty = 

clean = 

dirty = 

readonly = 

update = 

I abel readonl y = 

I abel update = 
first 
I ast 

approx = 

exact = 

current = 

prior = 

next = 
touch_by_vl t ree 

touch delete = 

untouched = 

leaftype = 

nonl eaf type = 

I abel type = 

freetype = 

I abel keys = 
labelflds 

I abel bnd = 

TYPE 

uni quei d 
f i I el abel 



3409; 
3410; 
3412; 
3413; 
3414; 
3415; 
3416; 
3417; 
3418; 
3419; 
3420; 
3421; 
3425; 
h = 3426; 
3427; 
3428; 
0; 
1 
2 

1 
2 
3 

1 
2 
3 
4 
5 
6 



0; 



26215; 
26729; 
25701; 
25187; 



ui d; 
RECORD 

checkli t: i nt eger; 

DBvers: byte; 

USERvers: byte; 

updateversi on: i nteger; 

f I ags: el emset ; 

f i rst page, I ast page: f i I ept r; 

nrecs: f i I ept r; 

pagesi ze: i nteger; 

nf i el ds: i nteger; 

nkeys: i nteger; 

nsort : i nteger; 

vf I ds: i nteger; 

kvf Ids: i nteger; 

dept h: i nteger; 

root: f i I eptr; 

f reel i st : f i I eptr; 

I abel I i st : f i I ept r; 

I abel ti ckets: f i I ept r; 

t i ckets: t i cket ; 

t i cketf I d: i nteger; 

funiqueid: uniqueid; 

c h e c k 2 i t : i nteger; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



pagedesc 



ptrpagedesc 
vacttype 

stackrec 



ptrstackrec 
pagestack 
ptrpagestack 
I abel ent ry 



ptrl abel entry 
offsets 
ptrof f sets 
ptrscandesc 
ptrf i I edesc 
f i I edesc 



END; 

RECORD 
nkeys 
ptype 
CASE 
tr 



fa 

END; 

"pagedes 

( undone, 
i rot, i 

RECORD 
numke 
page: 
rec I 
CASE 
i r 



de 



END; 

"stackre 
ARRAY [0 
"page s t a 
RECORD 

I type 
enum: 
seq: 
varf I 

END; 

A l abel en 

ARRAY [0 

"offsets 

"scandes 

A f Iledes 

RECORD 

check 

DBver 

USERv 

updat 

f I ags 

f I rst 

nrecs 

pages 

nf I el 

nkeys 

nsort 

vflds 

kvfld 

depth 

root: 

f reel 

label 

label 

I I eke 
1 1 eke 
f unl q 
check 
openl 
pnext 
pkeyf 



: I nteger; 
: I nteger; 
bool ean OF 
ue: 

( pri or: f I I ept r; 
next: f I I ept r) ; 
I se: 

(free: f i I ept r; ) 

c; 

del, split, spl I trepl ace, rot, rot replace, 
rotrepl ace, merge, mergerepl ace, NoSibEmpty) 

ys, I ndex: I nteger; 

f I I eptr; 

page, r ec r page : f i I eptr; 
vact: vacttype OF 
ot, i rotrepl ace: 

( unrot Pt : I nteger; 
I nsl ndex: I nteger) ; 
I, rot, merge, NoSibEmpty: 

( del si ze: I nteger; 
del rec: pt rdata) ; 

c; 

, . 0] OF stackrec; 

ck; 

: I nteger; 
f I I eptr; 
I nteger; 
d: vfld 

try; 

. . 0] OF I nteger; 

} 

c; 
c; 



.1. 
s: 

ers 
eve 
: e 

pag 

: f 
I ze 
ds: 
: i 
: i 
: i 
s: 
: i 

fi 
ist 
Ms 
tic 
ts: 
tfl 
uei 

2 

d:~ 
: i 
lie 



It: I nteger; 

byte; 

: byte; 

rsi on: I nteger; 

I emset; 

e, I ast page: f I I ept r; 

I I ept r; 

: I nteger; 

I nteger; 
nteger; 
nteger; 
nteger; 
I nteger; 
nteger; 
I eptr; 
: f 1 1 ept r; 
t : f I I ept r; 
kets: f I I ept r; 

t I cket; 
d: I nteger; 
d: unlqueld; 
It: I nteger; 
ul d; 
nteger; 
s: Integer; 
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000194 






readers, wr i t ers: i nt eger; 




000195 






f stat us: i nteger; 




000196 






scans: i nteger; 




000197 






f ref no: i nteger; 




000198 






pedesc: ptrrecptr; 




000199 






pkdesc: ptrrecptr; 




000200 






pfldset: ptrbits; 




000201 






f i rstvf 1 d: i nteger; 




000202 






1 ast vf 1 d: i nteger; 




000203 






1 ast vsf 1 d: i nteger; 




000204 






END; 




000205 


scanc 


esc 


= RECORD 




000206 






onf i 1 e, vi af i 1 e: i nteger; 




000207 






f next : i nteger; 




000208 






touched: i nteger; 




000209 






i nt ent : i nteger; 




000210 






posi t i on: i nteger; 




000211 






ptrcos: ptrdata; 




000212 






cossi ze: i nteger; 




000213 






keypage: f i 1 ept r; 




000214 






qpage: f i 1 ept r; 




000215 






keyi ndex: i nteger; 




000216 






qi ndex: i nteger; 




000217 






ufldset: bits; 




000218 






END; 




000219 


1 mil an 


die 


= f i nt 8; 




000220 


diffd 


esc 


= RECORD 




000221 






di f f i d: i nteger; 




000222 






real i d: 1 nteger; 




000223 






on, via: 1 nteger; 




000224 






vpage: f 1 1 ept r; 




000225 






vl ndex: 1 nteger; 




000226 






cur handl e: 1 mhandl e; 




000227 






have anupdate, reversescan: boo 


ean; 


000228 






whi chway: 1 nteger; 




000229 






pdf 1 1 ter: ptrdata; 




000230 






pkf 1 1 ter : ptrdata; 




000231 






plow, phlgh: ptrdata; 




000232 






nl f 1 ds, nhf Ids: 1 nteger; 




000233 






CheckPt Size: 1 nteger; 




000234 






nul 1 set : bl ts; 




000235 






END; 




000236 


pt rdi 


ffdesc 


= "di f f desc ; 




000237 


QChkPt Des c 


= RECORD 




000238 






CPt Si ze: i nteger; 




000239 






CPt LowSi ze: i nteger; 




000240 






CPt Hi ghSi ze: i nteger; 




000241 






CPt Df i 1 terSi ze: i nteger; 




000242 






CPt Kf i 1 terSi ze: integer; 




000243 






CPtnhflds, CPt nl f 1 ds : integer; 




000244 






CPt whi chway: i nteger; 




000245 






CPtvpage: fileptr; 




000246 






CPt vi ndex: i nteger; 




000247 






CPtcurhandle: 1 mhandl e; 




000248 






CPt reversescan: boolean; 




000249 






hasVi a: bool ean; 




000250 






Clear: bool ean; 




000251 






Good: bool ean; 




000252 






vi aUni quei d: uni quei d; 




000253 






END; 




000254 


ptrQChkPt Desc 


= "QChkPt Desc; 




000255 


buffd 


esc 


= RECORD 




000256 






pbuff: ptrdata; 




000257 






state: i nteger; 




000258 






1 ocks: i nteger; 




000259 






pf i 1 e: i nteger; 
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000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 



page: f i I eptr; 

pri ori ty: i nteger; 
END; 
pool = ARRAY [0..0] OF buffdesc; 
ptrpool = "pool ; 

filetable = ARRAY [0..0] OF pt rf 1 1 edesc; 
ptrf 1 1 etabl e = A f 1 1 etabl e; 
scantable = ARRAY [0..0] OF pt rscandesc; 
pt rscant abl e = "scant abl e; 
dlfftable = ARRAY [0..0] OF ptrdlffdesc; 
ptrdlfftabl e = "dlfftable; 



VAR 



{$1 FC PRERELEASE } 



pdebug: 
{$ENDC} 
psl ze: 
pope no bj : 
pf 1 1 etabl e: 
nf I I es: 
pscantabl e: 
nscans: 
pdl f ft abl e: 
ndlffs: 
I abdesc: 
pstack: 



bool ean; 



I nteger; 

I nteger; 

ptrf 1 1 etabl e; 

I nteger; 

pt rscantabl e; 

I nteger; 

pt rdi f f t abl e; 

I nteger; 

ARRAY [0. . label bnd] OF f Iddesc; 

pt rpagestack; 
curdepth, maxdepth: Integer; 
pbuff segment : I ongl nt ; 
buf f _ segment : I nteger; 
buff pool : ptrpool ; 

1 1 cks: I nteger; 

I ast buf f : I nteger; 

ulddesc: flddesc; 

Isleaf, Isnonleaf, Isroot: Integer; 
dont use f reel I st : bool ean; 
{$1 FC DEBUGPOOL } 

labwrltes, datawrltes, datareads: Integer; 
{$ENDC } 
{$1 FC PRERELEASE } 

PROCEDURE dumpbuffff I rst, last: Integer); 

{$ENDC } 

PROCEDURE I oc kbuf f ( VAR presult: Integer; VAR buffer: Integer); 

PROCEDURE r el b uf f ( VAR presult: Integer; buffer: Integer; 
rel pri ori ty: i nteger) ; 

PROCEDURE dowri tenon( VAR presult: integer; fileid: integer); 

PROCEDURE get page ( VAR presult: integer; VAR buffer: integer; fileid: 
rpage: fileptr; noi nconsi stent : boolean); 

PROCEDURE put page( VAR presult: integer; buffer: integer; fileid: i nt 
wpage: f i I ept r) ; 



i nteger; 
eger; 
nteger); 



PROCEDURE checkpt ( VAR presult: integer; fileid: integer; newstate: i 

PROCEDURE doc I o s e ( VAR presult: integer; fileid: integer); 

FUNCTION noroomf presul t : integer): boolean; 

PROCEDURE f or c e_ out ( VAR presult: integer; fileid: integer; wpage: fileptr); 

PROCEDURE Pagel nval i datesff i I ei d: integer); 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 101 of 196 



Apple Lisa Computer Technical Information 

000326 ****************************************************************** 

000327 * 

000328 * THAT' S ALL FOLKS . .. 

000329 * 

000330 ******************************************************************************* 

000331 

End of File -- Lines: 331 Characters: 11109 
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Fl LE: "LI SA LI B 3 PRBUF. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRBUF 

USES {$U+} PRBUF; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 



bOS/SysCall 
bPM/PMDecl 
bSM/UnitStd 
bSM/Uni t Hz 
bQD/ Storage 
bQD/ Qui ckDraw 
bFM/ Font Mgr 
bPr/PrStdl nf o 



SysCall, 
PMDecl, 
Uni tStd, 
UnitHz, 
Storage, 
Qui ckDraw, 
Font Mgr, 
PrStdl nf o; 



TYPE 
TPbCmd 

TPbCommand 



(pbCmdText, pbCmdHRule, pbCmdVRule) 
RECORD 
h: TC; 
v: TC; 

CASE pbCmd: TPbCmd OF 
pbCmdText : 
(cFont: TC; 
seteface: Style; 
cFirstChar: TC; 
cLength: TC); 
pbCmdHRul e: 



TPbData 
TPPbData 
THPbData 
TPbProcs 
TPbl nstal I 



c Width 
pbCmdVRul e: 
(cHeight 
END; 

PACKED ARRAY 
"TPbData; 
"TPPbData; 

ARRAY [TPbCmd] OF TProc 
RECORD 

chkProcs: TPbProcs; 
dumpProcs: TPbProcs; 
scanLi ne: TProc; 
END; 



TO; 
TO; 
0.. 32000] OF CHAR; 



VAR 



rPrBounds: Rect; 
HOffSet, VOffSet: Integer; 

PROCEDURE PbClose; 

PROCEDURE PbDumpBand; 

PROCEDURE PbHRul e( c Lengt h : TC); 

PROCEDURE PbOff Set ( HOf f , VOff: Integer); 
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000062 PROCEDURE PbOpen(i nstal I : TPblnstall); 

000063 

000064 PROCEDURE PbText ( cCount : TC; p: TP); 

000065 

000066 PROCEDURE PbVRul e( c Lengt h: TC); 

000067 

000069 * 

000070 * THAT' S ALL FOLKS . .. 

000071 * 

000072 ****************************************************************** 

000073 

End of File -- Lines: 73 Characters: 2018 
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Fl LE: "LI SA LI B 3 PRDLGMGR. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRDLGMGR 
USES {$U + } PRDLGMGR; 



I NTRI NSIC; 

{$SETC fBtnRead 

I NTERFACE 



FALSE} 



USES 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U I 



bOS/SysCall 
bSM/UnitStd 
bSM/Uni t Hz 
bHW/HWInt 
bQD/ Qui ckDraw 
bFM/ Font Mgr 
bQD/ Storage 
bWM/ Events 
bWM/ Folders 
bSB/WmlStd 
bSB/WmlCrs 
bPM/PMDecl 
bPr/PrStdl nf o 



SysCall, 
UnitStd, 
UnitHz, 
HIM nt, 
Qui ckDraw, 
Font Mgr, 
Storage, 
Events, 
Fol ders, 
Wml Std, 
WmlCrs, 
PMDecl, 
PrStdl nfo; 



CONST 

cl nf i ni t e 
cZero 

cCur sor Del ay 
cBt nMax 
c Mu Ma x 
i d Mu Ma x 
i BtnNi I 
i MuNi I 
i BtnStd 
dhCkf mMarg 
dvCkf mMarg 
dhSpToCk 
dhSpToR 
dvSpToR 
cChNr Max 
cChSpMax 
dtDI gEnd 
dtDI g Mi n 
ckf mMax 

TYPE 
TDBox 



TEbtn 

TEqd 

TEact 



$7FFFFFFF; 

0; 

3500; 

31; 

31; 

15; 

■ i; 

■ l; 

■ 2; 
6; 

4 

4 

3 

1 

4 

15; 

25; 

25; 

5; 



RECORD 

f Key Dl g: TF; 

timeStrt: TL; 

procEvent: TProc; 

prod dl e: TProc; 

procEnd: TProc; 
END; 

(ebtnSq, ebtnRR, ebtnOv); 
(eqdLI, eqdCI , eqdRI, eqdRO); 
(eactln, eactCk, eactNr, eactSp, 



eact I c) ; 
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000062 


TEni b 


= ( eni bSm, eni b L g ) ; 


000063 


TRgni b 


= ARRAY [TEni b] OF Poi nt; 


000064 


TLx 


= PACKED RECORD 


000065 




fam: 0..31; 


000066 




fB: TF; 


000067 




fl: TF; 


000068 




eact: TEact; 


000069 




eqd: TEqd; 


000070 




ebtn: TEbtn; 


000071 




eni b: TEni b; 


000072 




fBtnVis: TF; 


000073 




mask: CHAR; 


000074 




s ma x : . . 2 5 5 ; 


000075 




END; 


000076 


TBtn 


= RECORD 


000077 




r: Rect; 


000078 




Ix: TLx; 


000079 




hsp: THsp; 


000080 




END; 


000081 


TRgbtn 


= ARRAY [ 0. . cBt nMax] OF TBtn; 


000082 


TldMu 


= 0. . i dMuMax; 


000083 


TSetldMu 


= SET OF TldMu; 


000084 


THmu 


= A TPmu; 


000085 


TPmu 


= A TMu; 


000086 


TMu 


= RECORD 


000087 




rBB: Rect; 


000088 




idMu: TldMu; 


000089 




iBtnOn: TB; 


000090 




iBtnUsr: TB; 


000091 




cBtn: TB; 


000092 




fMuVis: TF; 


000093 




fMUActv: TF; 


000094 




rgbtn: TRgbtn; 


000095 




END; 


000096 


TRghmu 


= ARRAY [C.cMuMax] OF THmu; 


000097 


THckf m 


= "TPckf m; 


000098 


TPckf m 


= A TCkfm; 


000099 


TCkf m 


= RECORD 


000100 




rBB: Rect; 


000101 




iMuKey: TB; 


000102 




i Bt n Key : TB; 


000103 




cMu: TB; 


000104 




rghmu: TRghmu; 


000105 




END; 


000106 


TCkf mseg 


= RECORD 


000107 




ckfm: ARRAY [0..ckfmMax] OF THckf m; 


000108 




END; 


000109 






000110 


VAR 




000111 


dbox: 


TDBox; 


000112 


set 1 dMuAl 1 : 


TSetldMu; 


000113 


hspNi 1 : 


THsp; 


000114 


f i nf oLx: 


Font 1 nf o; 


000115 


rgni b: 


TRgni b; 


000116 


pPr Rec Us r : 


TPprRec; 


000117 


hckf mPrCk: 


THckf m; 


000118 


procCkCmd: 


TProc; 


000119 






000120 


PROCEDURE DlgMg 


rl ni t ; 


000121 






000122 


PROCEDURE PauseEvt ( d t : TC); 


000123 






000124 


FUNCTION FMsel n 


Fldrlpwnd: Wi ndowPt r ; VARpt: Point): TF; 


000125 






000126 


PROCEDURE PrStr 


ToNum(spNum: TSp; VAR c: TC); 


000127 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



PROCEDURE Pr NumToSt r ( c: TC; VAR spNum: TSp); 

PROCEDURE Pr CkEvent ( event : Event Record) ; 

PROCEDURE PrCkTrkMse; 

PROCEDURE C a r e t Mo v e ( pwnd: Wi ndowPt r ; h, v: TC); 

PROCEDURE CaretSynch; 

PROCEDURE Caret Ki I I; 

PROCEDURE CaretFI i p; 

PROCEDURE CaretBI i nk; 

PROCEDURE Dl gl nstal I ( f Key: TF; pEvent, pi dl e, pEnd: TProc); 

PROCEDURE Dl gE vent ( event : Event Record) ; 

PROCEDURE Dlgldle; 

PROCEDURE DlgEndff Dismiss: TF); 

PROCEDURE DlgOpen(dv: TC); 

FUNCTION FDI gEvent ( VAR event: Event Record) : TF; 

PROCEDURE Dl g Ma i n ; 

FUNCTION FDIgDone: TF; 

FUNCTION FCkf mSel ect ( he kf m: THckfm; ptMse: Point; VAR i Mu, i Bt n : TB): TF; 

PROCEDURE CkFmSet Up( hckf m: THckfm; flnit: TF; set I dMuAct v: TSetldMu); 

PROCEDURE Ckf mShow( hckf m: THckfm; flnit: TF); 

PROCEDURE CkfmTrkMse( hckf m: THckfm; pWnd: WindowPtr); 

PROCEDURE Ckf mKeysf hckf m: THckfm; i Mu, i Bt n: TB); 

PROCEDURE Ckf mAddChl hckf m: THckfm; ch: CHAR); 

FUNCTION FCkf mNxt Key( hckf m: THckfm; VAR i MuNxt, iBtnNxt: TB): TF; 

PROCEDURE Ckf mSp( hckf m: THckfm; i Mu, i Bt n: TB; VAR sp: TSp; fNew: TF); 

FUNCTION FCkf mHi t ( hckf m: THckfm; i Mu, i Bt n: TB): TF; 
{$1 FC f BtnRead} 

FUNCTION HspAllocIsp: TSp; cChMax: TC) : THsp; 

PROCEDURE HspFree( VAR hsp: THsp); 

FUNCTION HCkf mReadfVAR ckFile: Text): THckfm; 
{SENDC} 

PROCEDURE MuShow(hmu: THmu); 

PROCEDURE MuErasefhmu: THmu); 

PROCEDURE MuPushfhmu: THmu; i Bt n : TB); 

FUNCTION FMuHi t ( h mu : THmu; ptMse: Point; VAR i Bt n: TB): TF; 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
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PROCEDURE BtnDraw(btn: TBtn); 

PROCEDURE BtnErase(btn: TBtn); 

PROCEDURE BtnFi I I (btn: TBtn; fFlip: TF); 

PROCEDURE BtnPtSpfbtn: TBtn; VAR ptSp: Point; VAR dhSp: TC); 

PROCEDURE BtnWri te(btn: TBtn; sp: TSp); 

PROCEDURE BtnAddChfbtn: TBtn; ch: CHAR); 

PROCEDURE BtnBkSpfbtn: TBtn); 

PROCEDURE BtnBi nd( VAR Ix: TLx); 

PROCEDURE BtnSetSp( btn: TBtn; sp: TSp; showlt: TF); 

PROCEDURE Bt nReappear ( hmu: THmu; iBtn: TB); 

PROCEDURE Bt nVani sh( hmu: THmu; iBtn: TB); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File -- Lines: 221 Characters: 5648 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PREVENTS 



USES {$U + } PREVENTS; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U Li bSM/UnitStd 
{$U LI bOS/SysCal I 



{$U L 
{$U L 
{$U L 
{$U L 
{$U L 
{$U L 
{$U L 
{$U L 



bPM/PMDecl 
bSM/Uni t Hz 
bQD/ Storage 
bQD/ Qui ckDraw 
bQD/ Graf Uti I 
bFM/ Font Mgr 
bPr/PrStdl nfo 
bPr / PrStdProcs 



UnitStd, 
SysCall, 
PMDecl, 
UnitHz, 
Storage, 
Qui ckDraw, 
Graf Uti I, 
Font Mgr, 
PrStdl nfo, 
PrStdProcs; 



CONST 

ECNameSi ze 
ma x s t u f f 

TYPE 

P r Me s s a g e s 



Pr Event Bl k 



38; 



(ENull, EWake, EDone, EPri nt Request , EPr i nt Di al og, 
ESett i ngsDi al og, EPr Li st Di al og, EMoni t or Di al og, 
ESendData, ETal kToMe, EMetrics, EJobCount, 
EPri ntTermi nate, EReply, EAbort, EStuffed, EConfigure); 
RECORD 

event header: t eheader; 
CASE INTEGER OF~ 
0: 

(event text: t event text); 



1: 
2: 
3: 



( event Byt es : ARRAY [0..39] OF - 128. .127); 
(eventlnts: ARRAY [0..19] OF INTEGER); 
( event Longs : ARRAY [0..9] OF LONGINT); 



END; 
Channel = RECORD 

ChName: Pathname; 

RefNum: INTEGER; 

Exname: t ex name; 

EvBlock: Pr Event Bl k; 

Interval: ti mestmpi nterval ; 

CI k T i me: t i me r e c ; 

Wa i t s : t wa i t \ i s t ; 
END; 

FUNCTION PrAccept ( VAR Chan: Channel): Pr Message; 

PROCEDURE Pr Ca I I ( VAR cError: TC; PrID: TL; Message: PrMessages; messl, mess2, 
me s s 3 , me s s 4 : T L ) ; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 



Apple Lisa Computer Technical Information 

PROCEDURE PrCI oseChan(VAR Chan: Channel); 

PROCEDURE Pr Def er To Bgd( Pr I D: TL; Message: PrMessages; messl, mess2, mess3, 

me s s 4 : T L ) ; 

PROCEDURE Prl DtoPathfPrl D: TL; VARpath: PathName); 

PROCEDURE Pr Of f er ( VAR Chan: Channel; Message: PrMessages); 

PROCEDURE PrOpenChanfVAR Chan: Channel; Rx: TF); 

PROCEDURE PrOpenCal I (VAR Chan: Channel; ExProc: LongAdr); 

PROCEDURE Pr j obCount ( Pr I D: TL; VAR cj ob: INTEGER); 

PROCEDURE Pr Not i f y( Pr I D: TL; Message: PrMessages; messl, mess2, mess3, 
me s s 4 : T L ) ; 

PROCEDURE Pr Pr i nt Request ( Pr I D: TL; IFIIeName, ncoples, PrntrlD, PortID: TL); 

PROCEDURE PrPrl ntStop(Prl D: TL; IFIIeName, ncoples, PrntrlD, PortID: TL); 

PROCEDURE PrSendMessagefVAR cError: INTEGER; VAR Chan: Channel; 

Message: PrMessages); 

FUNCTION PrWai t Message! VAR Chan: Channel): Pr Message; 

PROCEDURE PrStuff DatafPrl D: TL; dataPtr: TP; nbytes: TC); 

PROCEDURE PrUpdate; 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS . .. 



End of File ■■ Lines: 98 Characters: 3195 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRFILEPR 

USES {$U + } PRFI LEPR; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 



bOS/SysCall 
bPM/PMDecl 
bSM/UnitStd 
bSM/Uni t Hz 
bQD/ Storage 
bQD/ Qui ckDraw 
bFM/ Font Mgr 
bPr/PrStdl nf o 
bPr / PrStdProcs 



SysCal I, 
PMDecl, 
UnitStd, 
UnitHz, 
Storage, 
Qui ckDraw, 
Font Mgr, 
PrStdl nf o, 
PrStdProcs; 



CONST 

pf Password 
pf Pi cHRul e 
pf Pi cVRul e 
pf Pi c Tab 
HeapSi ze 

TYPE 

TSt r 80 



■ 13264; 

20; 

21; 

22; 

12000; 



Stri ng [ 80] ; 



PROCEDURE OpenBI oc k( VAR error: Integer; VAR FileRec: TPrFileRec; 
access: MSet); 

PROCEDURE WriteBI ockfVAR error: Integer; p: TP; ICount: Longlnt; 
Ref Num: I nt eger ) ; 

PROCEDURE ReadBI ock( VAR error: Integer; p: TP; ICount: Longlnt; 
Ref Num: I nt eger ) ; 

PROCEDURE Pf Set Pos( VAR error: Integer; IPos: TL; RefNum: Integer); 

PROCEDURE Pf SavePos ( VAR error: Integer; VAR IPos: TL; RefNum: Integer); 

******************************************************************************* 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS 



End of File 



Li nes: 53 Characters: 1424 
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000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PROGCOMM 

000004 * 

V U V U V J 

000006 

000007 USES {$U+} PROGCOMM; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U StdUnlt } StdUnit, 

000016 {$U ShellComm } ShellComm; 
000017 

000018 CONST 

000019 PCNone = ■ 1; 

000020 PCAny = 0; 

000021 PCText = 1; 

000022 PCBufrMax = 1023; 

000023 PC Set Real lyStop = 1; 

000024 PC Get Real lyStop = 2; 

000025 PC Set UnSavedEdi t s = 6960; 

000026 PC Get UnSavedEdi t s = 8751; 
000027 

000028 TYPE 

000029 PCBufrP = A PCBufr; 

000030 PCBufr = PACKED ARRAY [ 0. . PCBuf r Max] OF CHAR; 
000031 

000032 VAR 

000033 PCBuf r Pt r : PCBufrP; 
000034 

000035 PROCEDURE PCI nit; 

000036 

000037 PROCEDURE PCSet RunCmd( RC: SUStr); 

000038 

000039 PROCEDURE PCSet Ret St r ( RS: SUStr); 

000040 

000041 PROCEDURE PCReWri te(Wri teType: INTEGER; Key: SUStr); 

000042 

000043 FUNCTION PCReset ( ReadType: INTEGER; Key: SUStr): BOOLEAN; 

000044 

000045 FUNCTION PCCIosefKi I I Bufr: BOOLEAN; Key: SUStr): BOOLEAN; 

000046 

000047 FUNCTION PCPut Ch( Ch: CHAR): BOOLEAN; 

000048 

000049 FUNCTION PCGetChl VAR Ch: CHAR): BOOLEAN; 

000050 

000051 FUNCTION PCPut Li ne( L: SUStr): BOOLEAN; 

000052 

000053 FUNCTION PCGetLi net VAR L: SUStr): BOOLEAN; 

000054 

000055 FUNCTION PCS he I I Cmd ( C md : INTEGER; P: SUStrP): BOOLEAN; 

000056 

000057 

000058 

000059 * THAT' S ALL FOLKS . .. 

000060 

000061 



* 
* 
* 
******************************************************************************* 
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000062 

End of File -- Lines: 62 Characters: 1355 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRPUBLI C 

USES {$U + } PRPUBLI C; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 



bOS/SysCall 
bPM/PMDecl 
bSM/UnitStd 
bSM/Uni t Hz 
bQD/ Storage 
bQD/ Qui ckDraw 
bFM/ Font Mgr 
bPr/PrStdl nf o 



SysCal I, 
PMDecl, 
UnitStd, 
UnitHz, 
Storage, 
Qui ckDraw, 
Font Mgr, 
PrStdl nf o; 



PROCEDURE PsYieldCpu; 

PROCEDURE PrGlobal I nit; 

FUNCTION FPrPrfVal id(VAR prprf: TPrRec): TF; 

PROCEDURE PrPrf DefaultfVAR prprf: TPrRec); 

FUNCTION f Pr Prf Eq( VAR prprf 1, pr prf 2 : TPrRec): TF; 

FUNCTION Pr Doc Start ( VAR PrRec: TPrRec; VAR PrPort: TPrPort; LDSN: INTEGER; 
DoSpool Al ert : Boolean): Boolean; 

FUNCTION Pr PageSt art ( VAR prinsln: TPrRec; VAR PrPort: TPrPort): TF; 

FUNCTION PrPageEnd(VAR prinsln: TPrRec; VAR PrPort: TPrPort): TF; 

PROCEDURE PrDocEndfVAR prinsln: TPrRec; VAR PrPort: TPrPort); 

PROCEDURE PrMgrlnit; 

PROCEDURE Pr Prf Dl g( VAR prprf: TPrRec; VAR f NewSt I : TF; f PgSzSuppress: TF); 

FUNCTION FPrl nsDIgfVAR prprf: TPrRec; VAR f NewSt I : TF; 
prmode: Pr MenuSuppress) : TF; 

PROCEDURE PrSpool Abort; 

PROCEDURE PrBgdDIg; 

PROCEDURE PrDI gDefaul t(f PgSzSuppress: TF; Prmode: Pr MenuSuppress; MaxHeight, 

MaxWidth, Mi n He i g h t , MinWidth: TC); 

PROCEDURE PrLFntl D( VAR prprf: TPrRec; f a ml n : TC; setln: Style; 
VAR I Fntid: TLFntl D) ; 
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000062 * THAT' S ALL FOLKS . .. 

000063 * 

000064 ****************************************************************** 

000065 

End of File -- Lines: 65 Characters: 1780 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRSTDI NF 

USES {$U + } PRSTDI NF; 

I NTRI NSIC SHARED; 

I NTERFACE 

USES 

{$U LibOS/SysCall } SysCall, 

{$U Li bPM/PMDecl } PMDecl, 

{$U Li bSM/UnitStd } UnitStd, 

{$U Li bSM/UnitHz } UnitHz, 

{$U Li bQD/ Storage } Storage, 

{$U Li bQD/ Qui ckDraw } QuickDraw, 

{$U Li bFM/ Font Mgr } Font Mgr ; 



{ $ s e t c doTracePR 
{ $s et c fTracePR 

{$SETC Pr Debug 
{$SETC Pr Symbol s 

CONST 

cPr Prf Versi on = 

prdVersi on = 

cbPrPrfMax = 

PrPageMax = 

LastBlock = 

iPgOther = 

i Pg 8x 1 1 

i Pg 8 x 1 4 = 

i Pg 14x 11 

i PgA4 

i Pg 2 10x1 2 

iPg310x8 

iPgSpec 

iPgFst 

i Pg Ma x = 

prPgFract = 

prNI LProcess = 

pr Ni I Ref Num = 

pr Ni I Pri nt er = 

p r Ni I Port = 

prErrAbort = 

prErrPrShop = 

NoPRD 

NoPMDri vers = 

PMbutNoPRD 

NoPrProcess = 

NoBtnFile 

PrParent Process 

spPrAI rt = 

sParentSeg = 

Idsnshared = 

I dsndi al og = 



TRUE} 

doTracePR and fTrace} 

fdbgok} 
f s y mo k } 



11; 

l; 

64; 

$07FFF; 

9999; 

0; 

1 

2 

3 

4 

5 

6 

7 



15; 

120; 

■ i; 

■ i; 

■ l; 

■ l; 
3050; 
3068; 
3055; 
3056; 
3057; 
3058; 
3059; 

= ' System. Pr i nt ' 
' System. Pr. ' ; 
' System. PrData' ; 
12; 
9; 
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000062 










000063 


TYPE 








000064 


Tl 




= 0..1; 




000065 


T4 




= 0. .15; 




000066 


T8 




= ■ 128. . 127; 




000067 


T16 




= PACKED RECORD 




000068 






CASE INTEGER OF 




000069 






0: 




000070 






(byl, byO: ■ 128. .127); 




000071 






1: 




000072 






( cl, cO: CHAR); 




000073 






2: 




000074 






(usbl, usbO: 0..255); 




000075 






3: 




000076 






(sbl, sbO: - 128. .127); 




000077 






4: 




000078 






(n3, n2, nl, nO: T4); 




000079 






5: 




000080 






(fl5, f 14, f 13, f 12, f 11, 


flO, f9, f8, f7 


000081 






f5, f4, f3, f2, fl, fO: 


BOOLEAN); 


000082 






6: 




000083 






( b 1 5 , bl4, bl3, b 12 , bll, 


blO, b9, b8, b7 


000084 






b5, b4, b3, b2, bl, bO: 


Tl); 


000085 






7: 




000086 






(i: INTEGER); 




000087 






END; 




000088 


T32 




= PACKED RECORD 




000089 






CASE INTEGER OF 




000090 






0: 




000091 






(il, iO: T16); 




000092 






1: 




000093 






(1: LONGINT); 




000094 






2: 




000095 






(p: TP); 




000096 






3: 




000097 






(h: TH); 




000098 






6: 




000099 






(aby: PACKED ARRAY [0. .3] 


OF ■ 128.. 127); 


000100 






END; 




000101 


TDi recti on 


= ( Port rai t, Landscape); 




000102 


TPgS 


i ze 


= RECORD 




000103 






Paper Di red : TDi red i on; 




000104 






Pr i nt Di red : TDi red i on; 




000105 






Width: INTEGER; 




000106 






Height: INTEGER; 




000107 






Extend: Longl nt ; 




000108 






END; 




000109 


TDI c 


PgSz 


= RECORD 




000110 






pgSzBtn: INTEGER; 




000111 






widlnch: INTEGER; 




000112 






htlnch: INTEGER; 




000113 






wi dl6t h: INTEGER; 




000114 






htl6th: INTEGER; 




000115 






widMM: INTEGER; 




000116 






ht MM: INTEGER; 




000117 






END; 




000118 


TPrJ 


obi nf o 


= RECORD 




000119 






DocPgFst : 1 nt eger; 




000120 






DocPgLst : 1 nt eger; 




000121 






Spool edPages: 1 nteger; 




000122 






Copi es: 1 nteger; 




000123 






1 mmedi ate: Bool ean; 




000124 






Extend: Longl nt ; 




000125 






END; 




000126 


TPrl 


nf o 


= RECORD 




000127 






ADev: TADev; 
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000128 




Pr i nt er 1 D: 1 nt eger; 


000129 




NumCol or: 1 nt eger; 


000130 




HRes, VRes: 1 nt eger; 


000131 




rPaper: Red; 


000132 




r Pr i ntabl e: Red ; 


000133 




PgSize: TPgSize; 


000134 




Port : 1 nt eger; 


000135 




DlgPgSz: TDIgPgSz; 


000136 




Extend: Longl nt ; 


000137 




END; 


000138 


TPr Devi nf o 


= ARRAY [1.. 128] OF ■ 128. . 127; 


000139 


TPrPort 


= RECORD 


000140 




gport: GrafPort; 


000141 




gProcs: QDProcs; 


000142 




Extend: Longl nt ; 


000143 




END; 


000144 


TpPrRec 


= A TPrRec; 


000145 


ThPrRec 


= A TPPrRec; 


000146 


TPrRec 


= RECORD 


000147 




PrVersi on: 1 nt eger; 


000148 




PrLDSN: Integer; 


000149 




Pr J obi nf o : TPrJoblnfo; 


000150 




Prl nf o: TPrl nf o; 


000151 




PrDevlnfo: TPr Devi nf o; 


000152 




Extend: Longl nt ; 


000153 




END; 


000154 


TPf Page 


= RECORD 


000155 




Start : Longl nt ; 


000156 




Lengt h: Longl nt ; 


000157 




END; 


000158 


TPf Pages 


= ARRAY [1..999] OF TPf Page; 


000159 


TPPf Pages 


= A TPfPages; 


000160 


THPf Pages 


= A TPPfPages; 


000161 


TPr F i 1 eld 


= RECORD 


000162 




s Fi 1 eNa me: St r 2 5 5; 


000163 




CASE Bool ean OF 


000164 




True: 


000165 




( Longl d: Longl nt ) ; 


000166 




Fal se: 


000167 




(Id, Bl ockNum: 1 nteger ) ; 


000168 




END; 


000169 


TPrFi 1 eRec 


= RECORD 


000170 




Fi 1 eName: Pat hName; 


000171 




Ref Num: 1 nteger; 


000172 




END; 


000173 


TPrDSRec 


= RECORD 


000174 




SegName: PathName; 


000175 




1 ni t Si ze: Longl nt ; 


000176 




Ref Num: 1 nteger; 


000177 




LDSN: Integer; 


000178 




Be g Ad d r : Longl nt ; 


000179 




END; 


000180 


PrMenuSuppress = (ePrNormal, ePgRa ngeSuppr es s , eP 


000181 


Dl gOpt i on 


= (eDIgOK, eDIgCancel, e Dl g Ano t her) 


000182 


TPrnt rl D 


= 0.. 16383; 


000183 


TPrExtWbrd 


= PACKED RECORD 


000184 




CASE INTEGER OF 


000185 




0: 


000186 




( pr i nter f 1 ag: TF; 


000187 




defaultjlag: TF; 


000188 




Pr Devi eel D: TPrntrl D) ; 


000189 




1: 


000190 




( Ext Word: INTEGER); 


000191 




END; 


000192 


Dri verChoi ce 


= RECORD 


000193 




Connector: TypeConnect; 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 

000230 * 

000231 * 

000232 * 
000233 
000234 



cd Driver: e name; 
END; 
DN.I nfo = RECORD 

p r i n t e r _ i d: Longl nt ; 
numDr i vers: I nt eger; 
END; 
prdHeader = RECORD 

versi on: I nteger; 
prdcount : I nteger; 
END; 
prdEntry = RECORD 

ent ryLen: I nteger; 
drvrname: ename; 
i nfo: dn i nfo; 
END; 
PRD.I nfo = RECORD 

descr: prdHeader; 
i nfo: ARRAY [0. .0] OF prdEntry; 
END; 



VAR 



cPr Error : I nteger; 

f BackGround: TF; 

f I ni t i al i zed: TF; 

I Par ent I D: TL; 

Pr Al er t UP: Boolean; 

prsslot, prsconnector, prsdevice, prsAserial, prsBserial, prsparallel, 



prsnone: 
Pr Ext ras: 
Pr Debug: 
Pr Bug p Name: 
Pr Bug F i I e: 



TSp; 
ARRAY [0. 
Bool ean; 
Pat hName; 
Text; 



10] OF LONGI NT; 



FUNCTION Pr Rec 68K: TpPrRec; 



************************************************************************** 



THAT' S ALL FOLKS 






End of File -- Lines: 234 Characters: 7814 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 119 of 196 



Apple Lisa Computer Technical Information 



Fl LE: "LI SA LI B 3 PRSTDPRO. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRSTDPRO 

USES {$U+} PRSTDPRO; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

{$U L 

CONST 
Port A 
Port B 

TYPE 
St r 80 



bOS/SysCall 
bPM/PMDecl 
bHW/HWint 
bSM/UnitStd 
bSM/Uni t Hz 
bQD/ Storage 
bQD/ Qui ckDraw 
bFM/ Font Mgr 
bPr/PrStdl nf o 



SysCal I, 
PMDecl, 
HWint, 
UnitStd, 
UnitHz, 
Storage, 
Qui ckDraw, 
Font Mgr, 
PrStdl nf o; 



$0A10; 
$0A20; 



= Stri ng[ 80] ; 
PROCEDURE PsCopylSrc, Dst: TL; I en: TC); 
PROCEDURE PsOpenPort ( VAR Error: Integer; Port: Integer); 
PROCEDURE PsCI osePort ( VAR Error: Integer; Port: Integer); 
PROCEDURE Psl nPort ( VAR Error: Integer; p: TP; c: TC); 
PROCEDURE PsOut Port ( VAR Error: Integer; p: TP; c: TC); 
PROCEDURE PsPort Name( Port : Integer; shandle: THsp); 
PROCEDURE Ps Por t ToDe vNa me( Port : Integer; VAR DevName: ename); 
PROCEDURE PsPreempt i ve; 
PROCEDURE PsNonPreempti ve; 

PROCEDURE PsNumToStr(c, w: TC; pstr: TpSp; z: CHAR); 
PROCEDURE Ps Yi el d C p u ; 

FUNCTION fCI r Bi t map( VAR bits: Bitmap; rCheck: Rect): TF; 
PROCEDURE I nitDeBug; 
FUNCTION PrAnd(cl, c2: TC): TC; 
PROCEDURE CI rBi tmaplpBi tmap: TP); 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 



Apple Lisa Computer Technical Information 

FUNCTION fCI r Bi t s( VAR bits: Bitmap; rCheck: Rect): TF; 
FUNCTION fEQBI k(a, b: TP; I : TL): TF; 
PROCEDURE Mo v e B I k ( a , b: TP; I : TL); 
FUNCTION PrShRight(cl, n2: TC) : TC; 
FUNCTION Pr ShLef t ( c 1, n2: TC) : TC; 

PROCEDURE GetFi leNamefVAR Pr F i I el d : TPrFileld); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File ■■ Lines: 79 Characters: 1812 
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Fl LE: "LI SA LI B 3 QUEUES. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : QUEUES 

USES {$U + } QUEUES; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U Li bSM/UnitStd } UnitStd, 
{$U Li bSM/Uni t Hz } UnitHz; 



TYPE 

pQueue = "Queue; 
hQueue = A pQueue; 
Queue = RECORD 

Head: hQueue; 
Tai I : hQueue; 
END; 

PROCEDURE QueueFreel Queue: hQueue); 

PROCEDURE Queuel ni t( Queue: hQueue); 

PROCEDURE Queuel nils e( Queue: hQueue); 

PROCEDURE Enqueue! Queue, Item: hQueue); 

FUNCTION Dequeue! Queue: hQueue): hQueue; 

FUNCTION I nsert Before! Queue, Successor, Item: hQueue): TF; 

FUNCTION I nsert Aft er( Queue, Predecessor, Item: hQueue): TF; 

FUNCTION Unqueue! Queue, Item: hQueue): TF; 

FUNCTION QueueLengt h( Queue : hQueue): TC; 

FUNCTION Que ue Peek( Queue : hQueue): hQueue; 

FUNCTION Enumerat eQueue! Queue: hQueue; FUNCTION 

FuncHandl e( Queue: hQueue; arg: hQueue): BOOLEAN; 
arg: hQueue): hQueue; 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 



Li nes: 55 Characters: 1339 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 122 of 196 



Apple Lisa Computer Technical Information 



Fl LE: "LI SA LI B 3 QUI CKDRAW. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : QUICKDRAW 

USES {$U + } QUICKDRAW; 

I NTRI NSIC; 
I NTERFACE 



CONST 
src 
src 
src 
src 
not 
not 
not 
not 
pat 
pat 
pat 
pat 
not 
not 
not 
not 
nor 
i nv 
red 
gre 
b I u 
cya 
mag 
yel 
bla 
bla 
whi 
red 
gre 
blu 
cya 
mag 
yel 
pic 
pic 



Copy 

Or 

Xor 

Bic 

SrcCopy 

SrcOr 

SrcXor 

SrcBi c 

Copy 

Or 

Xor 

Bic 

PatCopy 

PatOr 

PatXor 

Pat Bi c 

ma I Bi t 

erseBi t 

Bit 

enBi t 

e Bi t 

n Bi t 

entaBi t 

I owBi t 

ckBit 

ckCol or 

teCol or 

Col or 

enCol or 

eCol or 

nCol or 

entaCol or 

I owCol or 

LParen 

RParen 



TYPE 

QDByte 
QDPtr 
QDHandle 
St r 2 55 
Pattern 
Bi t s 16 
VHSelect 
GrafVerb 
Styl el tern 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



1 

4 

3 

2 



7 

6 

5 

33; 

30; 

205; 

341; 

409; 

273; 

137; 

69; 

0; 

1; 



- 128. 
A QDByt 
-QDPtr 
St ri ng 
PACKED 
ARRAY 
(v, h) 
( f r a me 
(bold, 
ext en 



.127; 
e; 

'[255]; 
ARRAY [0. .7] OF 0. . 255; 
[0.. 15] OF I NTEGER; 

I 

, pai nt, erase, i nvert, fill); 

italic, underline, outline, shadow, condense, 
d, onl ymet ri cswi dths); 
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000062 


Style 


= SET OF Styl el tem; 




000063 


Font 1 nf o 


= RECORD 






000064 




ascent: 


1 NTEGER; 




000065 




descent: 


1 NTEGER; 




000066 




wi d Ma x : 


1 NTEGER; 




000067 




1 eadl ng: 


1 NTEGER; 




000068 




END; 






000069 


Pol nt 


= RECORD 






000070 




CASE INTEGER OF 




000071 




0: 






000072 




(v 


: INTEGER; 




000073 




h 


: INTEGER); 




000074 




1: 






000075 




(v 


h: ARRAY [VHSelect] 


OF 1 NTEGER); 


000076 




END; 






000077 


Rect 


= RECORD 






000078 




CASE INTEGER OF 




000079 




0: 






000080 




(top: INTEGER; 




000081 




1 


eft: INTEGER; 




000082 




bottom: INTEGER; 




000083 




right: INTEGER); 




000084 




1: 






000085 




(topLeft: Point; 




000086 




bot Ri ght : Poi nt ) ; 




000087 




END; 






000088 


B 1 1 Ma p 


= RECORD 






000089 




baseAddr 


: QDPtr; 




000090 




rowBytes 


: INTEGER; 




000091 




bounds: 


Rect; 




000092 




END; 






000093 


Cursor 


= RECORD 






000094 




data: Bi 


t s 16; 




000095 




ma s k : B i 


t s 16; 




000096 




hotSpot: 


Poi nt; 




000097 




END; 






000098 


PenState 


= RECORD 






000099 




pnLoc: P 


oi nt; 




000100 




pnSi ze: 


Poi nt; 




000101 




p n Mo d e : 


1 NTEGER; 




000102 




pnPat: Pattern; 




000103 




END; 






000104 


Pol yHandl e 


= A Pol yPt r; 






000105 


Pol yPt r 


= A Pol ygon; 






000106 


Pol ygon 


= RECORD 






000107 




pol ySi ze 


: INTEGER; 




000108 




pol yBBox 


: Rect; 




000109 




polyPoi nts: ARRAY [0. .0] OF 


Poi nt; 


000110 




END; 






000111 


RgnHandl e 


= A RgnPtr; 






000112 


RgnPt r 


= A Regi on; 






000113 


Regl on 


= RECORD 






000114 




rgnSi ze: 


1 NTEGER; 




000115 




rgnBBox: 


Rect; 




000116 




END; 






000117 


PI cHandl e 


= A Pi cPt r; 






000118 


Pi cPt r 


= A Pi dure; 






000119 


Picture 


= RECORD 






000120 




pi cSi ze: 


1 NTEGER; 




000121 




p i c F r a me 


: Rect; 




000122 




END; 






000123 


QDProcsPt r 


= A QDProcs; 






000124 


QDProcs 


= RECORD 






000125 




text Proc 


: QDPtr; 




000126 




1 i neProc 


: QDPtr; 




000127 




rect Proc 


: QDPtr; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



VAR 





rRectProc: QDPtr; 




oval Proc: QDPtr; 




arcProc: QDPtr; 




polyProc: QDPtr; 




rgnProc: QDPtr; 




bltsProc: QDPtr; 




comment Proc : QDPtr; 




txMeasProc: QDPtr; 




getPicProc: QDPtr; 




putPlcProc: QDPtr; 




END; 


Graf Ptr 


= A GrafPort; 


Graf Port 


= RECORD 




device: INTEGER; 




portBlts: Bit Ma p ; 




portRect: Red; 




vl sRgn: RgnHandl e; 




cl 1 pRgn: RgnHandl e; 




bkPat: Pattern; 




f i 1 1 Pat: Pattern; 




pnLoc: Pol nt; 




pnSI ze: Pol nt; 




pnMode: INTEGER; 




pnPat: Pattern; 




pnVIs: INTEGER; 




txFont: INTEGER; 




txFace: Style; 




txMode: INTEGER; 




txSIze: INTEGER; 




spExt ra: Longl nt ; 




f gCol or: Longl nt ; 




bkCol or: Longl nt ; 




colrBIt: INTEGER; 




patStretch: INTEGER; 




pi cSave: QDHandl e; 




rgnSave: QDHandl e; 




polySave: QDHandl e; 




grafProcs: QDProcsPtr; 




END; 


thePort: 


Graf Ptr; 


whi t e: 


Pattern; 


black: 


Pattern; 


gray: 


Pattern; 


1 tGray: 


Pattern; 


dkGray: 


Pattern; 


arrow: 


Cursor; 


screenBI ts: 


Bl t Map; 


randSeed: 


Longl nt ; 



PROCEDURE I nitGraf (global Ptr: QDPtr); 

PROCEDURE OpenPort ( port : GrafPtr); 

PROCEDURE I ni t Port ( port : GrafPtr); 

PROCEDURE CI osePort ( port : GrafPtr); 

PROCEDURE Set Port ( port : GrafPtr); 

PROCEDURE Get Port ( VAR port: GrafPtr); 

PROCEDURE Graf Devi ce( devi ce: INTEGER); 

PROCEDURE SetPortBi t s( bm: BitMap); 
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000194 




000195 


PROCEDURE 


000196 




000197 


PROCEDURE 


000198 




000199 


PROCEDURE 


000200 




000201 


PROCEDURE 


000202 




000203 


PROCEDURE 


000204 




000205 


PROCEDURE 


000206 




000207 


PROCEDURE 


000208 




000209 


PROCEDURE 


000210 




000211 


PROCEDURE 


000212 




000213 


PROCEDURE 


000214 




000215 


PROCEDURE 


000216 




000217 


PROCEDURE 


000218 




000219 


PROCEDURE 


000220 




000221 


PROCEDURE 


000222 




000223 


PROCEDURE 


000224 




000225 


PROCEDURE 


000226 




000227 


PROCEDURE 


000228 




000229 


PROCEDURE 


000230 




000231 


PROCEDURE 


000232 




000233 


PROCEDURE 


000234 




000235 


PROCEDURE 


000236 




000237 


PROCEDURE 


000238 




000239 


PROCEDURE 


000240 




000241 


PROCEDURE 


000242 




000243 


PROCEDURE 


000244 




000245 


PROCEDURE 


000246 




000247 


PROCEDURE 


000248 




000249 


PROCEDURE 


000250 




000251 


PROCEDURE 


000252 




000253 


PROCEDURE 


000254 




000255 


PROCEDURE 


000256 




000257 


PROCEDURE 


000258 




000259 


PROCEDURE 



PortSi ze(wi dth, height: INTEGER); 

MovePort To{ I ef t Gl obal , topGlobal: INTEGER); 

Set Or i g i n ( h , v: INTEGER); 

SetCI i p( rgn: RgnHandl e) ; 

Get CI i p ( r g n : RgnHandl e) ; 

CI i pRec t ( r : Rect); 

BackPat ( pat : Pattern); 

I ni t Cursor; 

SetCursor( crsr: Cursor); 

Hi deCursor; 

ShowCursor; 

ObscureCursor; 

Hi dePen; 

ShowPen; 

Get Pen( VAR pt : Poi nt); 

Get PenSt at e( VAR pnState: PenState); 

Set PenState( pnState: PenState); 

PenSi ze( wi dth, height: INTEGER); 

PenModefmode: INTEGER); 

PenPat ( pat : Pattern); 

PenNormal ; 

MoveTofh, v: INTEGER); 

Movefdh, dv: INTEGER); 

LineTofh, v: INTEGER); 

Linefdh, dv: INTEGER); 

Text Font ( f ont : INTEGER); 

Text Faceff ace: Style); 

TextModefmode: INTEGER); 

Text Si ze( si ze: INTEGER); 

SpaceExt ra( ext ra: Longl nt ) ; 

Dr a wCha r ( c h : char); 

DrawStri ng( s: S t r 2 5 5 ) ; 

Dr a wText (text Buf : QDPtr; firstByte, byteCount: INTEGER); 
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000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 



FUNCTION CharWi dthfch: CHAR): INTEGER; 

FUNCTION Stri ngWidthfs: St r 255) : INTEGER; 

FUNCTION Text Wi dt h( t ext Buf : QDPtr; first Byt e, byteCount: INTEGER): INTEGER; 

PROCEDURE Get Font I nf o( VAR info: Fontlnfo); 

PROCEDURE AddPt ( src : Point; VARdst: Point); 

PROCEDURE SubPt ( s r c : Point; VARdst: Point); 

PROCEDURE Set Pt ( VAR pt: Point; h, v: INTEGER); 

FUNCTION Equal Pt(ptl, pt 2 : Point): BOOLEAN; 

PROCEDURE Seal ePt ( VAR pt : Point; f romRect , toRect: Rect); 

PROCEDURE MapPt (VAR pt: Point; f romRect, toRect: Rect); 

PROCEDURE Local ToGI obal (VAR pt : Point); 

PROCEDURE Gl obal ToLocal ( VAR pt: Point); 

PROCEDURE Set Rect ( VAR r : Rect; left, top, right, bottom: INTEGER); 

FUNCTION Equal Rect ( rect 1, rect 2: Rect): BOOLEAN; 

FUNCTION EmptyRect ( r : Rect): BOOLEAN; 

PROCEDURE Off set Rect ( VAR r: Rect; dh, dv: INTEGER); 

PROCEDURE MapRect ( VAR r: Rect; f romRect, toRect: Rect); 

PROCEDURE Inset Rect ( VAR r: Rect; dh, dv: INTEGER); 

FUNCTION Sect Rect ( src 1, src2: Rect; VAR dstRect: Rect): BOOLEAN; 

PROCEDURE Uni onRect ( src 1, src2: Rect; VAR dstRect: Rect); 

FUNCTION Ptl nRectlpt: Point; r: Rect): BOOLEAN; 

PROCEDURE Pt 2 Rec t ( pt 1 , pt 2 : Point; VAR dstRect: Rect); 

PROCEDURE FrameRect ( r: Rect); 

PROCEDURE Pai nt Rect ( r : Rect); 

PROCEDURE EraseRect ( r : Rect); 

PROCEDURE I nvert Rect ( r : Rect); 

PROCEDURE Fill Rec t ( r : Rect; pat: Pattern); 

PROCEDURE FrameRoundRectfr: Rect; ovWd, ovHt: INTEGER); 

PROCEDURE Pai nt RoundRect ( r : Rect; ovWd, ovHt: INTEGER); 

PROCEDURE EraseRoundRect ( r : Rect; ovWd, ovHt: INTEGER); 

PROCEDURE I nvert RoundRect ( r : Rect; ovWd, ovHt: INTEGER); 

PROCEDURE Fill RoundRect ( r : Rect; ovWd, ovHt: INTEGER; pat: Pattern); 

PROCEDURE FrameOval (r: Rect); 
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000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 



PROCEDURE Pai ntOval (r: Rect); 

PROCEDURE EraseOval (r: Rect); 

PROCEDURE I nvertOval (r: Rect); 

PROCEDURE Fill Ov a I ( r : Rect; pat: Pattern); 

PROCEDURE FrameArcfr: Rect; startAngle, arcAngle: INTEGER); 

PROCEDURE PaintArcfr: Rect; startAngle, arcAngle: INTEGER); 

PROCEDURE EraseAr c ( r : Rect; startAngle, arcAngle: INTEGER); 

PROCEDURE InvertArcfr: Rect; startAngle, arcAngle: INTEGER); 

PROCEDURE FIIIArcfr: Rect; startAngle, arcAngle: INTEGER; pat: Pattern); 

PROCEDURE Pt ToAngl e( r : Rect; pt : Point; VAR angle: INTEGER); 

FUNCTION OpenPoly: PolyHandle; 

PROCEDURE ClosePoly; 

PROCEDURE Ki I I Pol y(poly: PolyHandle); 

PROCEDURE Of f set Pol y( pol y: PolyHandle; dh, dv: INTEGER); 

PROCEDURE MapPol y( pol y: PolyHandle; fromRect, toRect: Rect); 



PROCEDURE FramePol y ( pol y 
PROCEDURE Pai ntPol y ( pol y 
PROCEDURE ErasePol y ( pol y 



PolyHandle) 

PolyHandle) 

PolyHandle) 
PROCEDURE I nvert Pol y( pol y : PolyHandle); 
PROCEDURE Fi I I Pol y ( pol y : PolyHandle; pat: Pattern); 
FUNCTION NewRgn: RgnHandl e; 
PROCEDURE Di sposeRgnf rgn: RgnHandl e) ; 
PROCEDURE CopyRgnf srcRgn, d s t Rgn: RgnHandle); 
PROCEDURE Set Empt y Rg n ( rgn: RgnHandle); 

PROCEDURE Set Rect Rgn( rgn: RgnHandle; left, top, right, bottom: INTEGER); 
PROCEDURE Rec t Rgn ( rgn: RgnHandle; r: Rect); 
PROCEDURE OpenRgn; 

PROCEDURE CI oseRgnf dst Rgn: RgnHandle); 
PROCEDURE Of f set Rgn( rgn: RgnHandle; dh, dv: INTEGER); 
PROCEDURE MapRgnf rgn: RgnHandle; fromRect, toRect: Rect); 
PROCEDURE I nset Rgn( rgn: RgnHandle; dh, dv: INTEGER); 
PROCEDURE Sect Rgn( srcRgnA, srcRgnB, ds t Rgn: RgnHandle); 
PROCEDURE Uni onRgn( srcRgnA, srcRgnB, ds t Rgn: RgnHandle); 
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000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 



PROCEDURE Di f f Rgn( srcRgnA, srcRgnB, dstRgn: RgnHandle); 

PROCEDURE XorRgn( srcRgnA, srcRgnB, dstRgn: RgnHandle); 

FUNCTION Equal RgnfrgnA, rgnB: RgnHandle): BOOLEAN; 

FUNCTION EmptyRgnfrgn: RgnHandle): BOOLEAN; 

FUNCTION Ptl nRgnfpt: Point; rgn: RgnHandle): BOOLEAN; 

FUNCTION Recti nRgn(r: Rect; rgn: RgnHandle): BOOLEAN; 

PROCEDURE FrameRgnf rgn: RgnHandle); 

PROCEDURE Pal nt Rgn( rgn: RgnHandle); 

PROCEDURE EraseRgn( rgn: RgnHandle); 

PROCEDURE I nvert Rg n ( rgn: RgnHandle); 

PROCEDURE Fi I I Rgn(rgn: RgnHandle; pat: Pattern); 

PROCEDURE Scrol I Rect ( dst Rect : Rect; dh, dv: INTEGER; updateRgn: rgnHandle); 

PROCEDURE CopyBI ts( srcBI ts, dstBlts: BltMap; srcRect, dstRect: Rect; 
mode: INTEGER; maskRgn: RgnHandle); 

FUNCTION OpenPi c t ur e( pi c F r a me: Rect): PIcHandle; 

PROCEDURE CI osePi cture; 

PROCEDURE DrawPi ct ure( myPi cture: PIcHandle; dstRect: Rect); 

PROCEDURE Pi cComment ( ki nd, dataSIze: INTEGER; dataHandle: QDHandle); 

PROCEDURE KI I I PlcturefmyPI cture: PIcHandle); 

PROCEDURE Set St d P r oc s ( VAR procs: QDProcs); 

PROCEDURE St dText ( count : INTEGER; text Addr : QDPtr; numer, denom: Point); 

PROCEDURE StdLI nefnewPt: Point); 

PROCEDURE St dRect (verb: GrafVerb; r: Rect); 

PROCEDURE St dRRec t (verb: GrafVerb; r: Rect; ovWd, ovHt: INTEGER); 

PROCEDURE StdOval (verb: GrafVerb; r: Rect); 

PROCEDURE StdArc(verb: GrafVerb; r: Rect; st art Angl e, arcAngle: INTEGER); 

PROCEDURE St dPol y ( verb: GrafVerb; poly: Pol y Handl e) ; 

PROCEDURE StdRgnfverb: GrafVerb; rgn: RgnHandle); 

PROCEDURE StdBltsfVAR srcBlts: BltMap; VARsrcRect, dstRect: Rect; 
mode: INTEGER; maskRgn: RgnHandle); 

PROCEDURE St dComment ( ki nd, dataSize: INTEGER; dataHandle: QDHandle); 

FUNCTION St dTxMea s ( count : INTEGER; textAddr: QDPtr; VAR numer, denom: Point; 
VAR i nfo: Fontlnfo): I NTEGER; 

PROCEDURE StdGetPi c ( dat a Pt r : QDPtr; byteCount: INTEGER); 
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000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 



PROCEDURE StdPutPi c ( d a t a P t r : QDPtr; byteCount: INTEGER); 

FUNCTION GetPixel (h, v: INTEGER): BOOLEAN; 

FUNCTION Random: I NTEGER; 

PROCEDURE Stuff Hex( t hi ngptr: QDPtr; s: St r 255) ; 

PROCEDURE ForeCol orfcol or: Longlnt); 

PROCEDURE BackCol orfcol or: Longlnt); 

PROCEDURE ColorBi UwhichBi t: INTEGER); 



* 
* 
* 



THAT' S ALL FOLKS 



End of File 



Li nes: 477 Characters: 12804 
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Fl LE: "LI SA LI B 3 RECOVERY. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : RECOVERY 

USES {$U+} RECOVERY; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$IFC 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 

{ $E L S E i 
{$U 

{$u 
{$u 
{$u 
{$u 
{$u 

{$U 

{$u 
{$u 
{$u 
{$u 
{$u 

{$ENDC 
const 



OSBUI LT } 

bsm/ uni t std. obj 
bdb/ dbenv. obj 
bi n/l NTRLIBp.obj 
bdb/dbdecl l.obj 
bos/syscal I . obj 
bos/ psyscal I . obj 
bdb/ 1 owl evel . obj 
bdb/ pool er. obj 
bdb/ heap, obj 
bdb/ czcompact . obj 
bdb/ vl t ree. obj 
bdb/scan. obj 
bdb/ 1 abscan. obj 
bdb/ schema, obj 

C } 

OBJ : dbenv. obj 
I NTRLIB.obj 



OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
} 



dbdecl 1. obj 
syscal I . obj 
I owl evel . obj 
pool er. obj 
heap, obj 
czcompact . obj 
vl tree, obj 
scan, obj 
I abscan. obj 
schema, obj 



Warn 


ndex 


= 


0; 


Warn 


NoSchema 


= 


l; 


Warn 


01 dSchema 


= 


2; 


BadF 


1 eDesc 


= 


3400; 


BadF 


1 e S c h e ma 


= 


3401; 



uni t st d, 

dbenv, 

i nt er nat i onal , 

dbdecl 1, 

syscal I , 

psyscal I , 

I owl evel , 

pool er, 

heap, 

czCompact, 

vl t ree, 

scan, 

I abscan, 

s c h e ma ; 

dbenv, 

i nt er nat i onal , 
dbdecl 1, 
syscal I , 
I owl evel , 
pool er, 
heap, 

czCompact, 
vl tree, 
scan, 
I abscan, 
s c h e ma ; 



PROCEDURE Fi I eRec over ( VAR ddresult: integer; VAR warnings: elemset; 

oldprefix, newprefix, pfname, pnewname, 
precname: ptrpathname; 



PROCEDURE 
EChec k( EC: 
VAR 



ecst r; f type: i nteger; 
resul t : i nteger) ; 



VAR Check: checki nf o; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 



PROCEDURE 

i ndexmake( VAR ddresult: integer; i f i I e na me, filename, 

tempdirl, t e mpd i r 2 : ptrpathname; 

templdsn: integer; nisort, nikeys: integer; 

piflds: ptridesc; duplok: boolean); 

PROCEDURE 

Mar ksRevengef VAR result: integer; 

VAR warnings: elemset; Isid: integer); 

Tool sMarket Code: integer); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File ■■ Lines: 79 Characters: 2585 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : REFS 

USES {$U+} REFS; 

{$1 FC isl ntrin} I NTRI NSIC; {$ENDC} 

I NTERFACE 

USES 

{$1 FC SrcOnOS } 

(*$U OBj/PASDEFS.OBj *) PasDefs, 

(*$U OBJ / MEMMAN. OBJ *) MemMan, 

(*$U OBJ/LI STS.OBJ *) Lists; 
{$ELSEC } 

(*$U OBJ : PASDEFS. OBJ *) PasDefs, 

(*$U OBJ : MEMMAN. OBJ *) MemMan, 

(*$U OBJ : LI STS.OBj *) Lists; 
{$ENDC } 

TYPE 



Ref 


= 


i nteger; 






Ref HRow 


= 


ARRAY [ ■ 128. .127] 


OF 


Ref; 


Ref HRowPtr 


= 


A Ref HRow; 






Ref HArr 


= 


ARRAY [ ■ 128. .127] 


OF 


Ref HRowPtr; 


Ref HPtr 


= 


A Ref HArr; 






Ref Rec 




RECORD 

ref 1 oc: i nteger; 

nextref: Ref; 
END; 






Ref Row 


= 


ARRAY [ ■ 128. .127] 


OF 


Ref Rec; 


Ref RowPt r 


= 


A Ref Row; 






Ref Arr 


= 


ARRAY [ ■ 128. .127] 


OF 


Ref RowPt r; 


Ref ArrPt r 


= 


A Ref Arr; 






Ref Handl e 


= 


A Ref Obj ect; 






Ref Obj ect 




RECORD 

memRefs: MMHandl 
refHeads: RefHPt 
refStore: Ref Ar r 
refsLH: Li st Hand 

END; 


- 1 

; 

'tr, 
e; 





FUNCTION AddRef ( r h: Ref Handl e; head: Ref; I: integer; FUNCTION 
GetMorefn, row: integer): boolean): Ref; 

PROCEDURE EachRef (rh: Ref Handl e; head: Ref; PROCEDURE 
Visitfi: Ref)); 

FUNCTION Mor e Head s ( r h: Ref Handl e; n, row: integer): boolean; 

PROCEDURE NewRef Li st(rh: Ref Handl e; head: Ref); 

PROCEDURE I nitRLists; 

FUNCTION I ni t Ref s ( nHeads, nRefs: longint): Ref Handl e; 
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000062 

000063 PROCEDURE CopyRef Li sts(rh: RefHandle; old, new: Ref); 

000064 

U U U U U J 

000066 * 

000067 * THAT' S ALL FOLKS . .. 

000068 * 

000070 

End of File -- Lines: 70 Characters: 1976 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SCAN 

USES {$U + } SCAN; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$IFC 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 

{ $ELSE 
{$U 
{$U 

{$u 
{$u 
{$u 
{$u 
{$u 
{$u 
{$u 

{$ENDC 



OSBUI LT } 
I i bsm/ uni t std. obj } uni t st d, 
I i bdb/ dbenv. obj } dbenv, 
I i bi n/ 1 NTRLI Bp. obj } international, 
I i bdb/dbdecl l.obj } dbdecl 1, 
I i bos/syscal I . obj } syscal I , 
I i bos/ psyscal I . obj } psyscal I , 
I i bdb/ 1 owl evel .obj } I owl evel , 
I i bdb/ pool er. obj } pool er, 
I i bdb/ heap, obj } heap, 
I i bdb/ czcompact . obj } czCompact, 
I i bdb/ vl t ree. obj } vl t ree; 

C} 

OBJ : dbenv. obj } dbenv, 
I NTRLI B. obj } i nternat i onal , 



OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 



dbdecl l.obj } dbdecl 1, 
syscal I . obj } syscal I , 
I owl evel .obj } I owl evel , 
pool er. obj } pool er, 
heap, obj } heap, 
czcompact. obj } czCompact, 
vl t ree. obj } vl t ree; 



FUNCTION SPar msBad( scani d: integer; which; integer; nsearch; integer; 
pent ry; pt rdata) ; i nteger; 

FUNCTION scani dbad( scani d; integer); boolean; 

PROCEDURE pstackval i date! VAR sresult; integer); 

FUNCTION keysi ze( f i I ei d; integer; pentry; ptrdata); integer; 

PROCEDURE ei ns ert ( VAR sresult; integer; VAR offender; integer; 

scanid; integer; pentry; ptrdata; size; integer; 
newt i cket ; bool ean) ; 

PROCEDURE efetch(VAR sresult; integer; scanid; integer; which; integer; 
nsearch; integer; pentry; ptrdata); 

PROCEDURE eupdat e( VAR sresult; integer; VAR offender; integer; 

scanid; integer; which; integer; nsearch; integer; 
pentry; ptrdata; pnewrec; ptrdata; size; integer); 

PROCEDURE edel et e( VAR sresult; integer; scanid; integer; which; integer; 
nsearch; integer; pentry; ptrdata); 
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000062 ****************************************************************** 

000063 * 

000064 * THAT' S ALL FOLKS . .. 

000065 * 

000066 ******************************************************************************* 

000067 

End of File -■ Lines: 67 Characters: 2224 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SCHEMA 

USES {$U + } SCHEMA; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$IFC 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 

{ $ELSE 
{$U 
{$U 

{$u 
{$u 
{$u 
{$u 
{$u 

{$U 

{$u 
{$u 
{$u 

{$ENDC 
const 



OSBUI LT } 
I i bsm/ uni t std. obj } uni t st d, 
I i bdb/ dbenv. obj } dbenv, 
I i bi n/ 1 NTRLI Bp. obj } international, 
I i bdb/dbdecl l.obj } dbdecl 1, 
I i bos/syscal I . obj } syscal I , 
I i bos/ psyscal I . obj } psyscal I , 
I i bdb/ 1 owl evel .obj } I owl evel , 
I i bdb/ pool er. obj } pool er, 
I i bdb/ heap, obj } heap, 
I i bdb/ czcompact . obj } czCompact, 
I i bdb/vl tree, obj } vl tree, 
I i bdb/scan. obj } scan, 
I i bdb/ 1 abscan. obj } I abscan; 

C } 

OBJ : dbenv. obj } dbenv, 
I NTRLI B. obj } i nternat i onal , 



OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
OBj 
} 



dbdecl l.obj } dbdecl 1, 
syscal I . obj } syscal I , 
I owl evel .obj } I owl evel , 
pool er. obj } pool er, 
heap, obj } heap, 
czcompact. obj } czCompact, 
vl t ree. obj } vl t ree, 
scan, obj } scan, 
I abscan. obj } I abscan; 



i ndexf i I e = 

f i I eschema = 

queryCheckPoi nt 

not _ needed = 

vi a_ o n I y = 

ononl y = 

onandvi a = 

new i ndex = 

TYPE 

i segment = 



pt r i segment 
i desc 



0; 

l; 

= 2; 



1 

2 

3 

4 



PACKED RECORD 

aord: 0. . 1; 

field: 0.. 32767; 
END; 

A i segment; 
ARRAY [0. . 0] OF i segment; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 



ptri desc = A i desc; 
i entry = RECORD 

lab: label ent ry; 

iduplok: boolean; 

I sort : I nt eger; 

I keys: I nteger; 

I uni que: unl quel d; 

I f I ds: I desc; 
END; 
ptri ent ry = A i ent ry; 

PROCEDURE f I I I descfVAR ddresul t: Integer; pflle: pt rf I I edesc) ; 

PROCEDURE ma kef i I e( VAR ddresult: Integer; pname: ptrpathname; 
pf desc: pt rf 1 1 edesc) ; 

PROCEDURE openi ndexes ( VAR ddresult: Integer; VAR viafile: Integer; 

scanld: Integer; ifilename: ptrpathname; 
Intent: Integer; I abel usage: Integer); 

PROCEDURE c vt s c a n ( VAR ddresult: Integer; scanld, slntent, 
svl af 1 1 e: I nteger) ; 

PROCEDURE i n i t pool ( VAR ddresult: Integer; firsttime: boolean; 

heap Idsn: Integer; nbuff: Integer; dheapslze: Integer; 
pheapname: ptrpathname; dstype: Tdstype; 
pagesl ze: I nteger) ; 

PROCEDURE f I ushscanl VAR ddresult: Integer; scanld: Integer); 

PROCEDURE cl osescanf VAR ddresult: Integer; scanld: Integer); 

PROCEDURE openscan(VAR ddresult: Integer; onname, vlaname: ptrpathname; 
VAR scanld: Integer; slntent: Integer); 

PROCEDURE makedescf I I e( VAR ddresult: Integer; pname: ptrpathname; 

pf desc: pt rf 1 1 edesc) ; 

PROCEDURE cl onef I I e( VAR ddresult: Integer; sourceflle, filename: ptrpathname; 
needt omakef 1 1 e: bool ean) ; 

PROCEDURE makef ormf I I e( VAR ddresult: Integer; pform: ptrdata; 

pfname: ptrpathname; needt omakef I I e: boolean); 

PROCEDURE qui c k I abel scan) VAR ddresult: integer; scanid: integer; 

sintent: integer; VAR Iscanid: integer); 

PROCEDURE get _ header ( VAR ddresult: integer; scanid: integer; 
VAR head: header); 

PROCEDURE getform(VAR ddresult: integer; scanid: integer; pdesc: ptrdata); 

PROCEDURE del etef i I e( VAR ddresult: integer; pfname: ptrpathname); 

PROCEDURE del etei ndex( VAR ddresult: integer; pi name, pfname: ptrpathname); 

******************************************************************************* 



* 
* 
* 



THAT' S ALL FOLKS 



End of File 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SCRAP 

USES {$U+} SCRAP; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/UnitStd 

bsm/UnitHz 

bos/SysCall 

bsu/UnitFile 

bqd/ Qui ckDraw 

bf m/ Font Mgr 

bqd/Storage 

bwm/ Events 

bwm/ Fol ders 

bsb/WmlStd 

bsb/Wmlsb 

bsu/UnitFmt 

bpm/PmDecl 

bpr/ PrStdl nf o 

bsu/UnitCS 

bsu/ Uni t Fi g At om 

bsu/UnitFf 



UnitStd, 
Uni t Hz , 
SysCall, 
Uni t F i I e, 
Qui ckDraw, 
Font Mgr, 
Storage, 
Events, 
Fol ders, 
Wml Std, 
Wmlsb, 
Uni t Fmt , 
PmDecl , 
PrStdl nfo, 
UnitCS, 
Uni t Fi gAt om, 
UnitFf; 



CONST 

ScrapNi I 

ScrapFE 

S c r a p Mt x 

ScrapBGraf 

ScrapLi st 

ScrapDwg 

ScrapPert 

ScrapCs 

ScrapUG 



= 4; 

= 5; 

= 6; 

= 7; 

= 12; 
scrapuo = 13; 

SecondOpenScrapCal I = 4050; 
HZI NITfai led = 4051; 
NoUndoScrap = 4052; 
TooManyProcesses = 4053; 
ProcCal I edBy NonOwner = 4054; 
ProcessNot Found = 4055; 
ScrapNot Pi ct ure = 4059; 
DataSegNot Open = - 4060; 



TYPE 



ScrapType = 0. . 15; 



VAR 



i csFf Scrap; 
i f i I Scrap; 
CurrScrapSet; 

ScraplFi gures 
Scrap2Lotus RefNum: TL; 



TB; 

TB; 

SET OF ScrapType; 

RefNum, Scrap2Fi gures Ref Num, 



ScraplLot us_ Ref Num, 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 



PROCEDURE I ni tScrapl VAR InitErr: Integer); 

PROCEDURE Ki I I Scr apOwner ( Who: Processld; VAR Ki I I Err: TC); 

PROCEDURE Revi veScr apOwner ( Who: Processld); 

PROCEDURE DrawUScr ap( VAR DrawErr: TC); 

PROCEDURE Bac kOut Of Scrap; 

PROCEDURE OpenScrap! VAR OpenErr: Integer); 

FUNCTION DSegOf Scrap: I nteger; 

FUNCTION Addrof ScrapDSeg: Longlnt; 

FUNCTION HzOf Scrap: THz; 

PROCEDURE Clai mScrap; 

PROCEDURE I nheri t Scrap! SaveOI d: Boolean); 

PROCEDURE Undol nheri tScrapl VAR UndoErr: integer); 

PROCEDURE Acceptl nheri t Scrap; 

PROCEDURE Er aseSc r apDat a ( VAR EraseErr: integer); 

PROCEDURE Start Put Sc r ap( VAR Put Err: integer); 

PROCEDURE Put Scrap! whi ch: ScrapType; what: TH; VAR Put E r r : integer); 

PROCEDURE PutGrScrap! What : PicHandle; VAR Put Err: integer); 

PROCEDURE Put Cs Sc r a p( i csContents: TB; VAR PutCSErr: integer); 

PROCEDURE EndPut Scrap! VAR Put Err: integer); 

PROCEDURE Start Get Scrap! VAR Get Err: integer); 

PROCEDURE Get Scrap! VAR which: ScrapType; VAR what: TH); 

PROCEDURE Get Gr Scrap! VAR What: PicHandle); 

PROCEDURE Get Cs Sc r ap( VAR Contents: TB); 

PROCEDURE EndGet Scrap! VAR Get Err: integer); 

PROCEDURE bi ndUTDSegl VAR BindErr: integer); 

PROCEDURE unBi ndUTDSegl VAR UnBindErr: integer); 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SHELLCOM 

USES {$U + } SHELLCOM; 

I NTRI NSIC SHARED; 

I NTERFACE 

USES 

{$U StdUnit } StdUnit; 



CONST 
SCNone 
SCAny 
SCText 

SCBuf r Max 



■ i; 

0; 

i; 

1023; 



SC Set Real lyStop = 1; 

SC Get Real lyStop = 2; 

SC Set UnSa vedEdi t s = 6960; 

SC Get UnSavedEdi t s = 8751; 

VAR 

SCRetStr: SUStr; 

SCRunCmnd: SUStr; 

SCBuf r: PACKED ARRAY [0..1023] OF CHAR; 

SCExec Abort : BOOLEAN; 

SCReal lyStopExec: BOOLEAN; 

SCUnSa vedEdi t s : BOOLEAN; 

PROCEDURE SCI nit; 

PROCEDURE SCSet RunCmd( RC: SUStr); 

PROCEDURE SCSet Ret St r ( RS: SUStr); 

PROCEDURE SCSet Exec Abor t ( B: BOOLEAN); 

PROCEDURE SCReWri te(Wri teType: INTEGER; Key: SUStr); 

FUNCTION SCReset ( ReadType: INTEGER; Key: SUStr): BOOLEAN; 

FUNCTION SCCIosefKi I I Bufr: BOOLEAN; Key: SUStr): BOOLEAN; 

FUNCTION SCPut Ch( Ch: CHAR): BOOLEAN; 

FUNCTION SCGetChf VAR Ch: CHAR): BOOLEAN; 

FUNCTION SCPut Li ne( L: SUStr): BOOLEAN; 

FUNCTION SCGet Li ne( VAR L: SUStr): BOOLEAN; 

FUNCTION SCShel I Cmd(Cmd: INTEGER; P: SUStrP): BOOLEAN; 

* THAT' S ALL FOLKS . .. 
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" V V vO J 

000064 

End of File -- Lines: 64 Characters: 1441 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : STDUNI T 

USES {$U+} STDUNIT; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U I i bOS/SysCal I . obj } SysCal I , 

{$U I i bPL/PasLi bCall .obj } Pas Li bCal I, 

{$U I i bPL/PPasLi bC.obj } PPasLi bC; 



CONST 

SUMaxSt r Leng 
SUNul IStr 
SUSpace 
SUOrdCR 
SUMaxPNLeng 
SUMaxVNLeng 
SUMaxFNLeng 
SUVol Suffix 

TYPE 

SUSetOfChar 
SUStrP 
SUStr 
SUVol Name 
SUFi le 
SUFi leP 
Prompt State 

E r r Text Ret 

ConvNState 

VAR 



255; 



13 
66 
33 
32 



SET OF CHAR; 
A SUStr; 
STRI NG[ 255] ; 
STRI NG[ SUMaxVNLeng] ; 
Fl LE; 
A SUFi le; 

(SUDefault, SUEscape, SUNone, SUOptions, SUValid, 
SUI nval id); 
(SUOk, SUBadEFOpen, SUBadEFRead, SUErrNNot Found) ; 
(SUValidN, SUNoN, SUBadN, SUNOver Fl ow) ; 



SUOsBootV: SUVol Name; 

SUMyProcV: SUVol Name; 

SUBell, SUBackSpace, SUCr, SUTab, SUEsc, SUDIe, SUNul: CHAR; 

SUNul IS: SUStr; 

SUKeyBoard: INTERACTIVE; 

PROCEDURE SUI nit; 

PROCEDURE SUDone; 

FUNCTION SUUpChfCh: CHAR): CHAR; 

FUNCTION SULowChfCh: CHAR): CHAR; 

PROCEDURE SUUpStrfS: SUStrP); 

PROCEDURE SULowSt r ( S: SUStrP); 

FUNCTION SUEqSt r ( SI: SUStrP; S2: SUStrP): BOOLEAN; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



FUNCTION SUEq2Str(Sl: SUStrP; 52: SUStr): BOOLEAN; 

PROCEDURE SUTri nieadi ng(S: SUStrP); 

PROCEDURE SUTri mTrai I ing(S: SUStrP); 

PROCEDURE SUTri mBlanksfS: SUStrP); 

PROCEDURE SUAddCh(S: SUStrP; Ch: CHAR; MaxStrLeng: INTEGER; 
VAR Over Fl ow: BOOLEAN); 

PROCEDURE SUConcat ( SI: SUStrP; S2: SUStrP); 

PROCEDURE SUAddSt r ( SI: SUStrP; S2: SUStrP; MaxStrLeng: INTEGER; 
VAR Over Fl ow: BOOLEAN); 

PROCEDURE SUSet St r ( Dest : SUStrP; Src: SUStrP); 

PROCEDURE SUCopySt r ( Dest : SUStrP; Src: SUStrP; Start, Count: INTEGER); 

FUNCTION SUIsVol Name! FN: SUStrP): BOOLEAN; 

PROCEDURE SUVol Part ( Pat hN: SUStrP; Vol N: SUStrP); 

PROCEDURE SUAddExt ensi on( FN: SUStrP; DefExt: SUStr; MaxStrLeng: INTEGER; 

VAR Over Fl ow: BOOLEAN); 

PROCEDURE SUSpl i t FN( Pat hN: SUStrP; Cat N: SUStrP; FN: SUStrP; Ext: SUStrP); 

PROCEDURE SUMakeFNfPathN: SUStrP; Cat N: SUStrP; FN: SUStrP; Ext: SUStr; 
VAR Over Fl ow: BOOLEAN); 

PROCEDURE SUChkFNfFN: SUStrP; VARPState: Prompt State; DefVol: SUStr; 
Def FN: SUStr; DefExt: SUStr); 

PROCEDURE SUGet Ch( VAR Ch: CHAR); 

PROCEDURE SUGetLi ne(S: SUStrP; VARPState: Prompt Stat e) ; 

PROCEDURE SUGet St r ( S: SUStrP; VARPState: Prompt State; DefVal: SUStr); 

PROCEDURE SUGet FN( FN: SUStrP; VARPState: PromptState; DefVol: SUStr; 
Def FN: SUStr; DefExt: SUStr); 

PROCEDURE SUGet I nt ( VAR I : INTEGER; VARPState: PromptState; DefVal: INTEGER); 

PROCEDURE SUWai t EscOr Sp( VAR PState: PromptState); 

PROCEDURE SUWai tSp; 

PROCEDURE SUGet Ch I nSet( VAR Ch: CHAR; Chars: SUSet Of Char ) ; 

FUNCTION SUGet YesNo: BOOLEAN; 

FUNCTION SUGet Bool (Default: BOOLEAN): BOOLEAN; 

PROCEDURE SUGet Er r Text ( Er r FN: SUStr; ErrN: INTEGER; ErrMsg: SUStrP; 

VAR Err Ret : Er r Text Ret ) ; 

PROCEDURE SUEr rText ( Err FN: SUStr; ErrN: INTEGER; ErrMsg: SUStrP); 

PROCEDURE SUSt opExec ( VAR ErrNum: INTEGER); 

PROCEDURE SUCI oseExec ( VAR ErrNum: INTEGER); 

PROCEDURE SUI ni t Sys Vol s; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 



PROCEDURE SUSys Reset ( F: SUFileP; FN: SUStr; VAR I OSt at us: INTEGER); 

PROCEDURE SUI ntToSt r ( N: INTEGER; S: SUStrP); 

PROCEDURE SULI ntToSt r ( N: LONGI NT; S: SUStrP); 

PROCEDURE SUStrTol nt(NS: SUStrP; VAR N: INTEGER; VAR CState: ConvNState); 

PROCEDURE SUStrToLI nt(NS: SUStrP; VAR N: LONGI NT; VAR CState: ConvNState); 

******************************************************************************* 
* 

* THAT' S ALL FOLKS . .. 

* 



End of File 



Li nes: 144 Characters: 3939 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 145 of 196 



Apple Lisa Computer Technical Information 



Fl LE: "LI SA LI B 3 STORAGE. TEXT" 



000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : STORAGE 

000004 * 

V U V U V J 

000006 

000007 USES {$U+} STORAGE; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES {$U I i bsm/Uni tStd } UnitStd, 

000015 {$U I i bsm/UnitHz } UnitHz; 
000016 

000017 TYPE 

000018 Ptr = TP; 

000019 Handle = TH; 

000020 Rel Handle = I NTEGER; 

000021 ProcPt r = TProc; 
000022 

000023 VAR 

000024 theHeap: THz; 

000025 ordHeap: Longlnt; 
000026 

000027 PROCEDURE I ni t Heap! st art Pt r , MmitPtr: Ptr; errorProc; ProcPtr); 

000028 

000029 PROCEDURE Set Heap( hz : Thz); 

000030 

000031 PROCEDURE Get Heap( VAR hz; Thz); 

000032 

000033 FUNCTION NewPt r ( byt eCount : INTEGER); Ptr; 

000034 

000035 PROCEDURE Di sposePt r ( p; Ptr); 

000036 

000037 FUNCTION NewHandl e( byt eCount ; INTEGER); Handle; 

000038 

000039 PROCEDURE Di sposeHandl e( h: Handle); 

000040 

000041 PROCEDURE Set Si ze( h: Handle; newSize: INTEGER); 

000042 

000043 FUNCTION Get Si ze( h: Handle); INTEGER; 

000044 

000045 

000046 

000047 * THAT' S ALL FOLKS 

000048 

000049 

000050 



******************************************************************************* 

* 

* 

* 

******************************************************************************* 



End of File ■■ Lines; 50 Characters; 1075 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SYS1LOCK 

USES {$U+} SYS1LOCK; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U I i bsm/UnitStd } UnitStd, 

{$U I i bos/SysCal I . Obj } SysCal I, 

{$U I i bos/PSysCal I .obj } PSysCal I; 

PROCEDURE LkSYSI Nl T( VAR err: INTEGER); 

PROCEDURE LkOPSEGK VAR err: INTEGER); 

PROCEDURE LkOPSEG2( VAR err: INTEGER); 

PROCEDURE LkACTI VATE( VAR err: Integer); 

PROCEDURE LkWORKSETfVAR err: INTEGER); 

PROCEDURE LkGRAFSEGfVAR err: INTEGER); 

PROCEDURE LkMOVERSf VAR err: INTEGER); 

PROCEDURE LkOPENlLWfVAR err: Integer); 

PROCEDURE LkLWWORKfVAR err: Integer); 

PROCEDURE LkOTHRWORK(VAR err: Integer); 

PROCEDURE LkNEVER( VAR err: INTEGER); 

PROCEDURE LkFmgruti I (VAR err: Integer); 

PROCEDURE LkPMMSegf VAR err: INTEGER); 

PROCEDURE LkWMwarm(VAR err: Integer); 

PROCEDURE LkWMJ rnl ( VAR err: Integer); 

PROCEDURE LkWMal ert ( VAR err: INTEGER); 

PROCEDURE Lkal ert ( VAR err: INTEGER); 

PROCEDURE LkSMcol d ( VAR err: INTEGER); 

PROCEDURE LkSUcol d( VAR err: INTEGER) 

PROCEDURE LkFEcol d( VAR err: INTEGER); 

PROCEDURE LkSBcol d( VAR err: INTEGER); 

PROCEDURE Lkl Ncol d( VAR err: INTEGER) 
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000062 

000063 PROCEDURE L kWMc ol d ( VAR err: Integer); 

000064 

U U U U U J 

000066 * 

000067 * THAT' S ALL FOLKS . .. 

000068 * 

000070 

End of File -- Lines: 70 Characters: 1513 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : TEENV 

USES {$U+} TEENV; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U I i bsm/Uni tStd } UnitStd, 

{$U I i bsm/Uni t Hz } UnitHz, 

{$U I i bqd/ Storage } Storage, 

{$U I i bqd/ Qui ckDraw } QuickDraw, 

{$U I i bf ml Font Mg r } Font Mgr , 

{$U I i bdb/dbenv } dbenv, 

{$U I i bfe/fedec} FEDec, 

{$U I i bfe/f Id } f ieldedit; 

{$SETC teProduction := NOT FDbgOK } 

{$SETC teSym : = FSymOK} 

{$SETC TEDEBUG := NOT teProduction } 

{$SETC doTraceTE : = TRUE} 

{$SetC f TraceTE := doTraceTE AND f TRACE} 

CONST 
OK 

Out Of Mem 
I nval i dCel I 
rmDel 
r mOk 

rmReName 
parseErr 
undoErr 
badFi el d 
cvnotenuff 
crnotenuff = 10; 
nul I Sni p = 0; 

pi nf Sni p = - 2; 

ml nf Snip = ■ 1; 

nul I Ti meout = 0; 
df 1 1 T i meout = ■ 1; 
cFol derpnl 
cCellPnl 
cTblPnl 
cWidePnl 
c Di a I ogPnl 
cScrapPnl 

nul I Pnl = - 1; 

cBi t mapH = 720; 

cBi t mapV = 20; 

{$1 FC NOT TEDEBUG} 
TraceFmgr = FALSE; 

{$ENDC } 



TYPE 
bi t pt r 
Pnl I ndex 



A Bi t map; 
I NTEGER; 
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000062 


Panel 


= RECORD 


000063 




PnlPort: GrafPtr; 


000064 




Offset: Point; 


000065 




Pnl Red : Rect; 


000066 




END; 


000067 


panel ptr 


= "Panel ; 


000068 


pnl Handl e 


= "panel ptr; 


000069 


STR40 


= stri ng[ 40] ; 


000070 


st r 9 


= stri ng[9]; 


000071 


strlOO 


= stri ng[ 100]; 


000072 


pi xel 


= 1 nteger; 


000073 


i dType 


= 1 nteger; 


000074 


rgKI nd 


= (aNullRg, alCellRg, aRectRg, aRowRg, aCol Rg, aRowGrid, 


000075 




aColGrld, aRow/HedRg, aCol HedRg, aWTBoxRg, aTblHedRg); 


000076 


rgj ust 


=(topJ, botj, leftj, rlghtj, botLeftJ, topLeftJ, topRlghtJ 


000077 




nearj ) ; 


000078 


rgX 


= "range; 


000079 


range 


= RECORD 


000080 




r Kl nd: rgKI nd; 


000081 




1 oRow: 1 dType; 


000082 




1 oCol : 1 dType; 


000083 




hi Row: 1 dType; 


000084 




hi Col : 1 dType; 


000085 




END; 


000086 


f ract 


= 1 NTEGER; 


000087 


snl pKI nd 


= ( rowKI nd, col Kl nd) ; 


000088 


Sel Kl nd 


= ( a Nu 1 1 S 1 , aCellTxtSI, alCellSI, aRectRgSI, aRowRgSI, 


000089 




a Co 1 Rg S 1 , a RowGr dSI , aColGrdSI, aRowHedSI, aColHedSI, 


000090 




a Tbl Hed SI , aWTBoxSI); 


000091 


Tbl Part 


= (outOfTbl, eel 1 Area, rowGrld, col Grid, rowHandl, col Handl 


000092 




rowHed, col Hed, whTbBox, tbl Hed); 


000093 


Tabl eRecord 


= RECORD 


000094 




SplitTable: BOOLEAN; 


000095 




Rect Border : BOOLEAN; 


000096 




Marquee: BOOLEAN; 


000097 




Col Handles: BOOLEAN; 


000098 




ColGrids: BOOLEAN; 


000099 




Col GridHandles: BOOLEAN; 


000100 




Col RangeOk: BOOLEAN; 


000101 




EditColTitle: BOOLEAN; 


000102 




InsertCols: BOOLEAN; 


000103 




EdBlankCol: BOOLEAN; 


000104 




RowHandl es: BOOLEAN; 


000105 




RowGr ids: BOOLEAN; 


000106 




RowRangeOk: BOOLEAN; 


000107 




RowGr i dHandl es: BOOLEAN; 


000108 




Edit RowTi 1 1 e: BOOLEAN; 


000109 




1 riser t Rows : BOOLEAN; 


000110 




EdBlankRow: BOOLEAN; 


000111 




Edi t Tabl e: BOOLEAN; 


000112 




ShoFormul as: BOOLEAN; 


000113 




Preview: BOOLEAN; 


000114 




Rect RgOk: BOOLEAN; 


000115 




FieldPad: INTEGER; 


000116 




scrollincr: ARRAY [ rowki nd. . col ki nd] OF INTEGER; 


000117 




END; 


000118 


t mBand 


= RECORD 


000119 




t mbKi nd: Sni p Ki nd; 


000120 




t mbLoP: pi xel ; 


000121 




t mb Hi P: pi xel ; 


000122 




t mb Hi deP: pi xel ; 


000123 




tmbLold: idtype; 


000124 




END; 


000125 


eel 1 ParType 


= ( eRecord); 


000126 


1 dModeType 


= (mmfirst, mmlast, mmnext, mmprior, mmfraction); 


000127 


mcType 


= (mmRight, mmLeft, mmUp, mmDown, mmNone, mmRange, 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



mmBegOf Row, mmBeg Of Co I , mmRi ght Peg, mmLef t Peg) ; 
lOModeType = (mmRead, mmWrite, mml ONu II); 
errRecord = RECORD 

er rSpot : i nterval ; 

messl: s t r 40; 

mess2: s t r 40; 

status: i nteger; 
END; 
eel I Record = RECORD 

align: I nteger; 

font: Tlfntid; 

protected: boolean; 

hi LI t e: bool ean; 

NumRuns : I nteger; 

dl m: bool ean; 
END; 
BGrowResult = (BSame, BGrew, BWent, nxtBWent); 
Scrol I Type = (incrScroll, pageScroll, jmpScroll); 
ScrollDIr = (ScrollBak, ScrollFwd); 

TMstate = RECORD 

mar qsaved: bool ean; 

rg: range; 

I sSel : bool ean; 

I sOn: bool ean; 

I sBorder : bool ean; 
END; 

VAR 

{$1 FC TEDEBUG} 

traceFMGR: BOOLEAN; 
{$ENDC } 

df I tNbrhood: Rect; 

nul I Nbrhood: Rect; 

Tbl Pars: Tabl eRecord; 

Fol derPnl : Pnl I ndex; 

CellPnl: Pnl I ndex; 

Tbl Pnl: Pnl I ndex; 

Wi dePnl : Pnl I ndex; 

Dl al ogPnl : Pnl I ndex; 

ScrapPnl : Pnl I ndex; 

PROCEDURE Adj Recti Pnl : Pnl I ndex; VARr: rect); 

PROCEDURE AdjToPnl (Pnl: Pnl I ndex; P: Point; VAR r el Poi nt : Point); 

PROCEDURE al locPnl (thePnl : Pnl I ndex) ; 

PROCEDURE ChgPnl Si ze(P: Pnl I ndex; Width, Height: Pixel); 

PROCEDURE FreePnl (thePnl : Pnl I ndex) ; 

PROCEDURE Get Pnl Bi t s ( P: pnl I ndex; VAR b: bitptr); 

PROCEDURE Get Pnl of f set ( Pnl : pnl I ndex; VAR offset: point); 

PROCEDURE Get Pnl Rect ( PNL: Pnl I ndex; VAR aPnl Rect : Rect); 

PROCEDURE I n i t Pnl s ( VAR status: integer); 

PROCEDURE MovePnl (P: Pnl I ndex; Offset: point); 
{$1 FC TEDEBUG} 



PROCEDURE prntCli p; 
PROCEDURE PRNTPORT; 
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PROCEDURE pr nt Rec t ( a Rec t : rect); 

PROCEDURE PrntRgfs: s t r 40; rg: range); 
{SENDC} 

FUNCTION pt I nPnl ( port pt r : grafptr; loc: point; hi pnl : pnlindex): Pnllndex; 

FUNCTION r g E q ( a Rg , bRg: range): boolean; 

FUNCTION Sect Pnl ( Pnl : pnllndex; portptr: grafptr; updrgn: rgnhandle; 
resultrgn: rgnhandle): BOOLEAN; 

PROCEDURE Set Pnl Port ( P: Pnl Index); 

PROCEDURE set Rg( VAR a Rg : range; aKind: rgKind; aLoRow, a LoCol , a Hi Row, 
a Hi Col : idType); 

PROCEDURE Set Up Pn I ( P: Pnllndex; portptr: grafptr; width, Height: pixel; 
I oc: poi nt ) ; 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 



End of File -- Lines: 219 Characters: 6969 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : TM 

USES {$U+} TM; 

I NTRI NSIC; 
I NTERFACE 



USES 

{$U I i bsm/UnitHz } UnitHz, 

{$U I i bqd/ Storage } Storage, 

{$U I i bqd/ Qui ckDraw } QuickDraw, 

{$U I i bf ml Font Mg r } Font Mgr , 

{$U I i bdb/dbenv } dbenv, 

{$U I i bfe/FEdec } FEdec, 

{$U I i bfe/f Id } f ieldedit, 

{$U I i bte/ teenv } teenv, 

{$U I i bsb/WMLstd } WML s t d , 

{$U I i bsb/WMI sb } WMI sb; 

{$i f c teProduct i on } 

{ $ S e t C t mdebug : = Fal se } 

{ $el sec } 

{$SetC t mdebug : = True } 

{$endc } 

{$SetC TMSDebug := tmDebug } 



{$U I i bsm/Uni tStd } UnitStd, 



CONST 

{$1 FC NOT t mdebug} 



t r a c e S Mg r 
t racet mgr 
t raceXt mgr 
f wr i t e I n 
{$ENDC } 
ascCR 
maxSt r i ng 
spl i t Dh 
spl i t Dv 
max run 



Fal se; 
fal se; 
fal se; 
fal se; 

13; 

130; 

dhSkewer; 

dvSkewer; 

5; 



TYPE 



eel I Se I Ty pe = (selectCell, sel ectContents, Put Caret At End) ; 
{$1 FC t mdebug} 



VAR 

traceSMgr, traceTMgr, traceXTMgr, fwriteln; boolean; 
{SENDC } 

PROCEDURE ChgRgBor der s( newRg: range; shoMarquee; boolean); 

PROCEDURE DumpSel; 

PROCEDURE EndRgBorders; 

PROCEDURE Fi ndTbl Pt(hv; point; VAR Prt Of Tbl : tbIPart; VAR rg; range; 
VAR virtRect, screenRect; rect); 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



PROCEDURE get CR( VAR rg: range); 

PROCEDURE get Edi t Cel I (VAR theRow: idType; VARtheCol: idType); 

FUNCTION gr ay Of Ba nd( a Ki nd: snipKind; aP: pixel): fract; 

PROCEDURE growBand( a Ki nd: snipKind; aP: pixel; VAR newP: pixel; 
VAR result: BGrowResul t ) ; 

PROCEDURE LDtmgr; 

PROCEDURE LDtmLoFreq; 

PROCEDURE NewRgBor der s( newRg: range; useMarquee: boolean); 

PROCEDURE NewRgl mg( r g: range); 

FUNCTION PtlnlCRg(hv: point; targRg: range): boolean; 

PROCEDURE Re Bl d T b I (i ni t Rg: range); 

PROCEDURE Scr Band) a Ki nd: snipKind; aP: pixel; scrScale: Scrol I Type; 

scrDir: Scrol I Di r ; scrFract: fract; VAR didMove: boolean); 

PROCEDURE setCRfrg: range); 

PROCEDURE shoNewRgl ol dRg: range; newRg: range; just: rgjust); 

PROCEDURE ShoNe wWi d ( a Ki nd : snipKind; I oSni p, hi Sni p: idType); 

PROCEDURE ShoTbl (shoRgnH: rgnHandle); 

FUNCTION sni pAI 1 1 nBa nd( a Ki nd: snipKind; aP: pixel; snipld: idType): boolean; 

PROCEDURE Spl i t Ba nd ( a Ki nd: snipKind; VAR at P: pixel; VAR d i dS pi i t : boolean); 

PROCEDURE t mCur VwPt ( VAR vwPt: point); 

PROCEDURE tmCurVwSet( vwPt: point); 

PROCEDURE t mFAct ( f Activate: boolean); 

PROCEDURE t ml nit; 

PROCEDURE tmLoadBands; 

PROCEDURE t mLoadNext Band) aTmBand: tmBand); 

PROCEDURE t mLoadSt at e( at mst ate: tmstate); 

PROCEDURE tmNewPars; 

PROCEDURE t mNewSni ps( a Ki nd: snipKind; priorSnip: idType; scrol I i t : boolean); 

PROCEDURE t mNext BandRg( VAR bandsnip: snipKind; VAR ba nd I ol d , 

bandhi I d: i dType) ; 

PROCEDURE tmReDoViews; 

PROCEDURE tmReSize; 

PROCEDURE tmSaveBands; 

PROCEDURE t mSaveNext Band( VAR aTmBand: tmBand); 

PROCEDURE t msavest at e( VAR atmstate: tmstate); 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



PROCEDURE t mSet RgFB( cRg: range; useMarquee: boolean); 

PROCEDURE t mShoBr eaks ; 

PROCEDURE tmShoNewTbl ; 

PROCEDURE TurnOff Marquee; 

PROCEDURE TurnOnMarquee; 

FUNCTION under Edi t ( aRow, aCol : IdType): boolean; 

PROCEDURE vi sRgOf Vi ew(aPt : point; VAR a Rg : range); 

PROCEDURE I nl tProcI nf o(Cel I I nf o: ProcPtr; Ce I I Run: ProcPtr; 



Cel I Val ue 
GetSnl pi d 
mmMa p S n I p 



ProcPtr 
ProcPtr 
ProcPtr 



FoldedFormula: ProcPtr; 
mmBr eakSni p: ProcPt r; 
Set Sni pWi dt h : ProcPtr; 



Sni pLT: ProcPtr; SnlpWidth: ProcPtr 
Fat al Error : ProcPt r) ; 

PROCEDURE bol df I ds ( VAR status: Integer); 

FUNCTION Cel I Changed: Boolean; 

PROCEDURE ChangeCel I Font; 

PROCEDURE CI ear Sel ( VAR status: Integer); 

PROCEDURE Copy Sel ( VAR status: Integer); 

PROCEDURE Cut Sel ( VAR status: Integer); 

PROCEDURE DoSel Act ( Acti vate: boolean); 

PROCEDURE DoSel CRfaRg: Range; VAR timeout: INTEGER; hilite: cel I sel type) ; 

PROCEDURE DoTbl Sel ( P: point; VAR Nbh: Rect; VAR Timeout: INTEGER); 

PROCEDURE DoWavSel(P: Point; VAR Nbh: Rect; VAR Timeout: Integer); 

PROCEDURE EndCR; 

PROCEDURE EnterSel ect i on( VAR Status: Integer); 

PROCEDURE EraseWav; 

PROCEDURE Ex i t Sel ; 

PROCEDURE Ext endSel ( P: point; VAR nbh: Rect; VAR delta: INTEGER); 

PROCEDURE Get Sel Ki n d ( VAR theSelKind: selKInd); 

PROCEDURE I ni t Sel Mgr ( wavAct Fl g: boolean; maxLenWav: Integer; 
growdata: Integer; growrun: Integer); 

PROCEDURE I n Key ( c h : char; shlftflag: boolean; cmdflag: Boolean; 
resetrun: boolean; VAR Timeout: INTEGER; 
VAR status: I NTEGER); 

PROCEDURE LDsmgr; 

PROCEDURE MovePol nter(P: Point; VAR pRg: range; VAR nbh: rect); 

PROCEDURE MseUpfP: Point; VAR delta: INTEGER); 
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000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 



PROCEDURE NewNbhfP: point; VAR nbh: Rect; VAR delta: INTEGER); 

PROCEDURE NewNbhWav(P: Point; VAR nbh: Rect; VAR delta: Integer); 

PROCEDURE NewTi mOut( VAR delta: INTEGER); 

PROCEDURE NewWSel(P: Point; Pnl : Pnl I ndex; VAR Nbh: Rect; 
VAR 1 1 meout : I nteger ) ; 

PROCEDURE Nul I CR; 

PROCEDURE Nul I Sel ; 

PROCEDURE PackSMGR( hndsusdata: hnddata; offset: Integer; curl en: Integer; 
VAR I enl nst al I ed: Integer; VAR newlen: Integer); 

PROCEDURE Past eSel ( past eruns: boolean; PasteLlmlt: Integer; 
VAR stat us: I nteger) ; 

PROCEDURE PolntAtRgfP: Point; VAR pRg: range; VAR nbh: rect); 

PROCEDURE reDrawSel ( showsel ect : boolean); 

PROCEDURE Rel nltSel Mgr; 

PROCEDURE rest oreRgFB) VAR timeout: Integer); 

PROCEDURE ReSelCRf VAR tl meout: INTEGER; hilite: eel I sel type) ; 

PROCEDURE restoref I ds( VAR curtlmeout: Integer); 

PROCEDURE resizef Ids; 

PROCEDURE Sel Al ITxtfVAR tl meout: INTEGER); 

PROCEDURE Sel NewCel I (P: point; hilite: eel I sel type; VAR nbh: Rect; 
VAR t i meout : i nteger) ; 

PROCEDURE Set Anchor Cel I ( Rowl d, col I d : idtype); 

PROCEDURE SetCell Strfstr: st r 40) ; 

PROCEDURE UNDOSELfVAR status: integer); 

FUNCTION Va I i dCoor d( r g: range): Boolean; 

PROCEDURE WhTbl Sel (rg: range; VAR nbh: Rect; VAR timeout: integer); 

PROCEDURE unbol df I ds ( VAR status: integer); 

PROCEDURE Unpac kSMGR( HndSdat a: Hnddata; offset: integer); 
{$1 FC tmDebug } 

PROCEDURE startTMti me; 

PROCEDURE stopTMti me; 
{SENDC} 

******************************************************************************* 
* 



THAT' S ALL FOLKS . .. 



* 
* 
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Fl LE: "LI SA LI B 3 TREES. TEXT" 

ooooni *********************************************************************** 



000002 


* 




000003 


* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : TREES 


000004 


* 




000005 


****************************************************************** 


000006 






000007 


USES {$U+} TREES; 




000008 






000009 






000010 


{$1 FC isl ntrin} 1 NTRI NSI C; {$ENDC} 


000011 






000012 


1 NTERFACE 




000013 






000014 


USES 




000015 


{ $1 FC SrcOn 


OS } 


000016 


(*$U OBj/PASDEFS *) PasDefs, 


000017 


(*$U OBJ/MEMMAN *) MemMan; 


000018 


{$ELSEC } 




000019 


(*$U OBJ 


: PASDEFS *) PasDefs, 


000020 


(*$U OBJ 


: MEMMAN *) MemMan; 


000021 


{$ENDC } 




000022 






000023 


{$SETC DEBUGF 


= } 


000024 






000025 


CONST 




000026 






000027 






000028 


Nul 1 Node 


= ■ 32768; 


000029 






000030 


TYPE 




000031 


NRRowPtr 


= A NRRow; 


000032 


NRRow 


= ARRAY [ - 128. .127] OF NameStri ng; 


000033 


NRHandle 


= A NameArr; 


000034 


NameAr r 


= ARRAY [ ■ 128. .127] OF NRRowPtr; 


000035 


CompResul t 


= (ToLef t, Equal , To Ri ght ) ; 


000036 


TreeType 


= (NameT, Futurel, F ut ur e 2 , F u t u r e 3 , Future4); 


000037 


Node 


= i nteger; 


000038 


Node Rec 


= RECORD 


000039 




1 Li nk, r Li nk: Node; 


000040 




END; 


000041 


NodeRow 


= ARRAY [ - 128. .127] OF NodeRec; 


000042 


NodeRowPt r 


= A NodeRow; 


000043 


NodeAr r 


= ARRAY [ - 128.. 127] OF NodeRowPt r ; 


000044 


NodeArrPt r 


= "NodeAr r ; 


000045 


TreeHandl e 


= "TreeRec ; 


000046 


TreeRec 


= RECORD 


000047 




nod Mem: MMHandl e; 


000048 




nodes: NodeArrPtr; 


000049 




maxNodes, c ur Nodes : longint; 


000050 




root: Node; 


000051 




compare: ProcPtr; 


000052 




store: ProcPtr; 


000053 




CASE TRType: TreeType OF 


000054 




NameT: 


000055 




( names: NRHandl e) ; 


000056 




Futurel, Future2, Future3, Future4: 


000057 




( Fut Ptr: 1 ongi nt ) ; 


000058 




END; 


000059 






000060 


FUNCTION Enter Node( t : TreeHandl e; VAR newN: NameString; 


000061 




PROCEDURE dupl icate 
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(t: TreeHandle; VAR np: Na me St r i ng ; n: Node); 
PROCEDURE new/Node 
(t: TreeHandle; VAR x: NameString; VAR newN: Node)): Node; 

FUNCTION TLookUpft: TreeHandle; VAR x: NameString): Node; 

PROCEDURE I nOTraverseft: TreeHandle; PROCEDURE 

Visit(i: Node)); 

FUNCTION I ni t NameTree) n: longlnt): TreeHandle; 

FUNCTION Gr o wTr ee ( t : TreeHandle; n, row: Integer): boolean; 



* 
* 
* 
******************************************************************************* 



THAT' S ALL FOLKS . .. 



End of File -■ Lines: 80 Characters: 2435 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITCS 

USES {$U+} UNITCS; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/UnitStd 
bsm/UnitHz 
bos/ SysCal I 
bqd/ Storage 
bq d / Qui ckDraw 
bf ml Font Mgr 
b p m/ P mDe c I 
bpr/ PrStdl nf o 
bsu/UnitFmt 



UnitStd, 
UnitHz, 
SysCal I , 
Storage, 
Qui ckDraw, 
Font Mgr, 
PmDecl , 
PrStdl nfo, 
Uni t Fmt ; 



CONST 

{$1 FC NOT f DbgOk} 



fTstCs 
dpdDft 

icsLst = 

oi nt Ni I = 

orecNi I = 

I pMax = 

procSeqLpd = 
procFi ndLpFi xed = 
pr o c Hi I i ght = 2; 
procCrd = 3; 

procFreel cs =4; 
procFSel LpBounds 



FALSE; 
4; 
10; 
0; 

MAXI NT; 
2000000000; 
0; 
= i; 



{$ENDC} 



5; 



procPxHcs 
procLstCs 
i mg p S c r n 
i mgpQume 
i mg p C 1 1 o 
i mg p L s t 



TYPE 
TLp 

TArgl p 
TRglp 
Tint 



TPi nt 
TArgi nt 
TRgi nt 



TL; 

ARRAY [0..0] OF TLp; 

"TArgl p; 

RECORD 

ointNxt: TC; 

oi nt Prv; TC; 

oi nt Parent ; TC; 

IpFst; TLp; 

I p L i m; TLp; 

ics; TB; 

fValid; TF; 
END; 
A Tlnt; 

ARRAY [0..0] OF Tl nt; 
A TArgi nt; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



THpic 
TPpi c 
TFigd 



TTyset 



TAI pd 



TLpd 
TTycs 

TCspd 



TTyxy 



TCs 



TPcs 

THcs 

TArghcs 

TRghcs 

TPglp 



TAmpi csprcs 
TMpi csprcs 



Pi cHandl e; 
Pi cPt r; 
RECORD 

n: TN; 

ppic 
END; 
RECORD 

f Rce 

f Par 

f Rpe 
END; 
RECORD 

i cs: 

ilpd 

f Par 

Ip: 

I pLi 

I pSo 

i csS 

tyse 

rce: 

I pFs 

I pLi 

rpe: 

arce 

arpe 

figd 
END; 
"TAI pd; 
(tycsNi 
tycsRu 
RECORD 

argp 

argi 
END; 

(tyxySc 

tyxyHi 

t yxyNe 

tyxyNe 

RECORD 

cspd 

hz: 

tycs 

tyxy 

oi nt 

orec 

cRef 

prpr 
END; 
"TCs; 
"TPcs; 

ARRAY [0..0] OF THcs; 
"TArghcs; 
RECORD 

icsHdr: TB; 

icsFtr: TB; 

yTopHdr: TY; 

dyHdr: TY; 

dy Ht Body: TY; 

dy Bot Body: TY; 

tyxy: TTyxy; 
END; 

ARRAY [0..0] OF TL; 
"TAmpi csprcs; 



TPpic; 



: TF; 
Bnds: TF; 
: TF 



TB; 
: TB; 
St: TF; 
TLp; 
m: TLp; 
n: TLp; 
on: TB; 
t: TTyset; 

TRce; 
tPar: TLp; 
mPar: TLp; 

TRpe; 
TArce; 
TArpe; 
TFigd; 



I, tycsUs, tycsEd, tycsFf, tycsUf, tycsFm, tycsPg, 
ler, tycsLst, tycsFId, tycsMtrx, tycsFig); 

roc: ARRAY [0.. i procLstCs] OF TProc; 
mgp: ARRAY [ 0. . i i mgpLst ] OF TProc; 

rn, tyxyIP, tyxyPgFract, tyxyMica, tyxyDotMx, 
Dot Mx, tyxyLDotMx, tyxyLHi Dot Mx, t yxyNe wl, 
w2, t yxyNe w3 , t y xy New4, t y xy Ne w5 , t y xy New6, 
w7, t yxyNe w8 , tyxyNi I ) ; 

: TCspd; 
THz; 

: TTycs; 
: TTyxy; 
Fst: TC; 
ConFst: TC; 
: TC; 
f: TPrRec; 



VAR 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



{$1 FC fDbgOk} 

fTstCs: TF; {$ENDC} 

tysetRpe: TTyset ; 

tysetBnds: TTyset; 

rghcs: TRghcs; 

mpi c s pr c s : T Mp i c s p r c s ; 

icsMac: TC; 

argalpd: ARRAY [ 0. . cl pdDft] OF TAI pd; 

argl pd: ARRAY [0. .cl pdDft] OF TLpd; 

IpdStd: TLpd; 

tysetStd: TTyset; 

lldlnt: TLId; 

tyxyLst: TTyxy; 

tyxyCs: TTyxy; 

pglpStd: TPglp; 

f Nol nval i date: TF; 

FUNCTION LpMi nP( I pi: TLp; I p 2 : TLp): TLp; 

FUNCTION LpMaxPd pi: TLp; I p 2 : TLp): TLp; 

PROCEDURE PxRgcs; 

PROCEDURE PxAchadfVAR achad: TAchad); 

PROCEDURE PxCsfics: TB); 

PROCEDURE Freel ntfics: TB; ol nt: TC); 

FUNCTION Oi ntMarkfoi nt: TC; ics: TB; IpFst: TLp; IpLim: TLp; fValid: TF; 
ointParent: TC): TC; 

FUNCTION I csCr eat e( t yes: TTycs; cbCs: TC; hz: THz): TB; 

PROCEDURE Freelcsfics: TB); 

PROCEDURE PxLpddpd: TLpd; VAR achad: TAchad); 

PROCEDURE Set Lpd( I pd : TLpd; ics: TB; I p: TLp; tyset: TTyset; 
VAR achad: TAchad); 

PROCEDURE SeqLpdflpd: TLpd; VAR achad: TAchad); 

FUNCTION FPar St art ( i cs: TB; I p: TLp): TF; 

PROCEDURE Fi ndLpFi xed( ics: TB; I p: TLp; VAR IpFixed: TLp); 

PROCEDURE Fi ndJLpFst Par ( i cs: TB; I p: TLp; VAR IpFixed: TLp); 

PROCEDURE I nitCsfhz: THz); 

PROCEDURE Pxl nt ( oi nt: TC); 

PROCEDURE Adj ustLps( i cs: TB; IpFstlnv: TLp; IpLimlnv: TLp; dlpAdjust: TLp); 

FUNCTION FSel LpBounds ( I p: TLp; ics: TB; VARIpFstSel, I pLi mSel , IpFstAtom, 

I pLi mAt om: TLp) : TF; 

FUNCTION TrueStdSel LpBoundsd p: TLp; ics: TB; VARIpFstSel, IpLimSel, 

IpFstAtom, I p L i mAt o m: TLp): TF; 

FUNCTION FText I cs( i cs: TB) : TF; 

PROCEDURE Purgel csPrcs; 

******************************************************************************* 
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000194 * 

000195 * 

000196 * 

000198 



End of File -■ Lines: 198 Characters: 5836 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITFF 

USES {$U+} UNITFF; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/UnitStd 
bsm/UnitHz 
bos/ SysCal I 
bsu/UnitFi I e 
bqd/ Qui ckDraw 
bf ml Font Mgr 
bqd/ Storage 
bsu/UnitFmt 
bpm/ PmDec I 
bpr/ PrStdl nf o 
bsu/UnitCS 



UnitStd, 
UnitHz, 
SysCal I , 
Uni t F i I e, 

Qui ckDraw, 
Font Mgr, 
Storage, 
Uni t Fmt , 
PmDec I , 
PrStdl nfo, 
UnitCS; 



CONST 

{$1 FC NOT f DbgOk} 



f Tst Ff 

pwFf 

pwNot Ff 

cbPgff 

dx Mi nTab 

f f Versi on 

ffVerPrPrf 

f f VerNewRgf bes 

f f Ver MsgFst = 3; 

f f Ve r Comma Dec i mal 

ffVerPrRec = 5; 



FALSE; 
■ 13142; 
0; 

512; 
6; 
5; 
2; 
= 3; 



4; 



{$ENDC} 



TYPE 

TTyRI U 
TFf Leader 



( tyr I uEngl i sh, t y r I u Me trie, tyrluPica, tyrluElite); 
RECORD 

password: TW; 

version: TC; 



TLp; 
TLp; 
TLp; 



END; 



I pHdrFst 
I pFtrFst 
I pTxtFst 
d u mmy L p L i mF f 
tyrlu: TTyRI U; 
pglp: TPglp; 
prprf: TPrRec; 



TB; 



VAR 



cspdFf: TCspd; 
{$1 FC fDbgOk} 
f Tst Ff : TF; 
{$ENDC} 

PROCEDURE PxHcsf f ( hes: THcs); 
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000066 
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000068 
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000070 
000071 
000072 
000073 
000074 
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000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 



Apple Lisa Computer Technical Information 

PROCEDURE PxLeader ( VAR leader: TFfleader); 

PROCEDURE SeqLpdFf (I pd: TLpd; VARachad: TAChad); 

FUNCTION IcsFfCreatefifi I : TC; icsFig: TB; hz: THz; 
VAR ff leader: TFfleader): TB; 

PROCEDURE FreeFfl cs(i csFf : TB); 

PROCEDURE Wri telcsFf (icsDoc: TB; pgl p: TPgl p; tyrluFf: TTyRI U; ifil: TB; 
IfllFIg: TB; hzDoc: THz); 

PROCEDURE I nitFF; 

FUNCTION LpMacFfficsFf: TB) : TLp; 

PROCEDURE Set Leader Of IcsFf Froml Fi I (i cs: TB; Ifil: TC; hz: THz); 

FUNCTION If i I Of Ff (icsFf : TB): TB; 

PROCEDURE Get Leader Of IcsFf (icsFf: TB; VARffleader: TFf Leader ) ; 

******************************************************************************* 



* 
* 
* 



THAT' S ALL FOLKS 



End of File ■■ Lines: 90 Characters: 2363 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNI TFI GA 

USES {$U + } UNI TFI GA; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/UnitStd 
bsm/UnitHz 
bos/ SysCal I 
bsu/UnitFi I e 
bqd/ Qui ckDraw 
bf ml Font Mgr 
bqd/ Storage 
bsu/UnitFmt 
bpm/ PmDec I 
bpr/ PrStdl nf o 
bsu/Uni tCS 



UnitStd, 
UnitHz, 
SysCal I , 
Uni t F i I e, 

Qui ckDraw, 
Font Mgr, 
Storage, 
Uni t Fmt , 
PmDec I , 
PrStdl nfo, 
UnitCS; 



CONST 

{$1 FC NOT f DbgOk} 
fTstFig = FALSE; 
tyf i I Fig = ■ 13143; 
ver Fi gCur = 1; 
cErrFi INotValid = 5100; 



{$ENDC} 



TYPE 

TCsf ig 



TPcsf ig 
THcsf ig 



RECORD 

cs; TCs; 

if i I ; TB; 
END; 

"TCsf i g; 
A TPcsf i g; 



VAR 



cspdFig: TCspd; 
{$1 FC fDbgOk} 
fTstFig; TF; 
{SENDC} 

PROCEDURE PxHcsfi g( hesfi g: THcsfig); 

FUNCTION I csFi gCreatel VAR cError: TC; path; Pathname; setaccess; TSetaccess; 

hz; THz; password; Ename): TB; 

PROCEDURE FreeFigl cs(ics: TB) ; 

PROCEDURE FigFi ndLpFi xed( i cs; TB; I p; TLp; VAR IpFixed; TLp); 

FUNCTION LpFigAddfics; TB; hpic; THpic); TLp; 

PROCEDURE SeqLpdFi g( I pd; TLpd; VARachad; TAChad); 

FUNCTION If i I Of F i g(i csFi g: TB) ; TB; 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 166 of 196 



Apple Lisa Computer Technical Information 

000062 

000063 PROCEDURE I nitFig; 

000064 

U U U U U J 

000066 * 

000067 * THAT' S ALL FOLKS . .. 

000068 * 

000070 

End of File -- Lines: 70 Characters: 1729 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITFILE 

USES {$U + } UNITFI LE; 

I NTRI NSIC SHARED; 

I NTERFACE 

USES 

{$U I I bsm/UnitStd} UnitStd, 

{$U I i bsm/UnitHz} UnitHz, 

{$U I i bos/SysCal I } SysCall, 

{$U I i bos/PSysCal I } PSysCal I; 

CONST 

ifi I Ni I = - 1; 

i f i I RangeWarn = - 4056; 

noMFi leErr = 4057; 

i f i I Not OpenWar n = ■ 4058; 

i vodNi I = MAXI NT; 

i vodAr gvod = 0; 

I vodFst = 1; 

cbVof i I On F i le = 128; 

cvodMore = 48; 

cbBI kOfVof i I = 512; 
{$1 FC NOT f DbgOk} 

f Tst F i le = FALSE; 
{$ENDC} 



TYPE 

Stri n g 2 5 5 
TVod 



TVof i 



TAr gvod 

TRgvod 

TSetaccess 



STRI NG[ 255] ; 
RECORD 

ib: TL; 

cb: TL; 
END; 
RECORD 

tyfil: TW; 

ver: TC; 

I vodMac: TC; 

vodAr gvod: TVod; 
END; 

ARRAY [1.. 1] OF TVod; 
A TArgvod; 
MSet; 



VAR 



Scrap RefNum: TL; 
{$1 FC~f DbgOk} 
fTstFile: TF; 

{$ENDC} 

PROCEDURE I nitFilesfhz: THz); 

FUNCTION If i IOpen(VAR cError: TC; pathln: Stri ng 2 5 5 ; cbBlk: TC; 
setaccess: TSetaccess; hzWrite: THz; 
password: E name): TB; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 



PROCEDURE CI os e I f i I ( VAR cError: TC; ifil: TB); 

FUNCTION Fi I CbOf N( n : TN) : TC; 

FUNCTION Fi I FSwapl nN(hz: THz; n: TN) : TF; 

PROCEDURE Fi I SwapOut N( hz : THz; n: TN) ; 

FUNCTION NFromlfi I I b ( i f i I : TB; i b: TL): TN; 

FUNCTION CBI kOf If i I (ifi I : TC) : TC; 

PROCEDURE RenameFi I e( VAR cError: TC; pathln: String255; enameln: TSp; 
password: Ename); 

PROCEDURE Ki I I F i I e ( VAR cError: TC; pathln: String255; password: Ename); 

FUNCTION FMonitorFi I e( pat h: String255): TF; 

PROCEDURE PathOflf i I (if i I : TC; VAR path: St r i ng 2 5 5 ; VAR password: ename); 

PROCEDURE Set I b L i mOf I f i I ( i f i I : TB; i b L i m: TL); 

FUNCTION Ref numOf If i I (if i I : TB) : TC; 

PROCEDURE CI eanlfi I (VAR cError: TC; hz: THz; ifil: TB; f I gnoreDi rty: TF); 

FUNCTION CErrOf If i I (ifi I : TB) : TC; 

PROCEDURE GetVofi I (if il : TB; VARvofil: TVofil); 

FUNCTION I vodAdd( ifil: TB; hSrc: TH; cb: TL): TC; 

PROCEDURE Set Tyf i I Verfifil : TB; tyfil: TW; ver: TC); 

******************************************************************************* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 



Li nes: 103 Characters: 2579 
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000001 

000002 * 

000003 * 

000004 * 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 






APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITFMT 



USES {$U+} UNITFMT; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 



I i bsm/UnitStd} Uni tStd, 

I i bsm/Uni t Hz } Uni t Hz, 

I i bqd/ Qui ckDraw} QuickDraw, 

I i bf m/ Font Mgr } Font Mgr; 
{$SETC doTraceSU ; = TRUE} 
{$SetC fTraceSU ;= doTraceSU AND f TRACE} 



CONST 

{$1 FC NOT f DbgOk} 

f Tst Fmt = FALSE; 

f I dQuad = 0; 

fldXLFst = 1 

fldXLBody = 2 

fldXRt = 3 

fldXtb = 4 

fl dTbQuad = 5 

fldRgtbd = 6 

fldDxtb = 7 

f I d Bo I d = 8 

fldltal ic =9; 

f I dUnderl i ne = 10; 

fldFont = 11; 

fldVan = 12; 

f I dSuperscri pt = 13; 

fldYLine = 14 

fldYLd = 15 

fldMovTb = 16 

fldCI rTb = 17 

fldFi I T b =18 

fl dKeep = 19 

fldLpFig = 20 

fldlcsFig = 21 

fldTyfam = 22 

fldFsp = 23 

fldLst = 23 

fopcEnd = ■ 1; 

i bRgtbd = 14; 

cbRceVan = 2; 

fntl2Ti le =0 

f ntplOTi I e =1 

fntpl2Ti le =2 

fntl8Ti le =3 

fnt24Ti le =4 

fntl2Cent = 5 

fnt 18Cent = 6 

fnt24Cent = 7 

fnt FBol d = 8 



{$ENDC} 
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Appl 


e 


Li 


sa Computer Techni cal 1 


n f o r ma t i on 


000062 


i f nt plOCent 




9; 




000063 


if ntpl2Cent 


= 


1C 


; 




000064 


i f nt el i t e 


= 


11 






000065 


i f nt cour i er 


= 


12 


■ 




000066 


if nt p20Ti 1 e 


= 


13 


, 




000067 


if ntpl5Ti 1 e 


= 


14 


; 




000068 


i f nt p2 OCent 


= 


15 






000069 


i f nt pl5Cent 


= 


16 






000070 


if ntLst 


= 


16 






000071 


i bXTbd 


= 


0; 




000072 


ibChTbd 


= 


2; 




000073 


i bRgf be 


= 


l; 




000074 


cbHf ecl nit 


= 


10; 




000075 


itbdLst 


= 


58; 




000076 


icsNi 1 


= 


0; 




000077 


1 pNi 1 


= 


■ 2; 




000078 


tyf amModer n 


= 


0; 






000079 


tyfamCI assi c 


= 


1; 






000080 


tyf a mL st 


= 


1; 






000081 


tyf amlFi 1 1 


= 


2; 






000082 


tyf am2Fi 1 1 


= 


3; 






000083 


fsp8P20 


= 


0; 






000084 


fsp8P15 


= 


1; 






000085 


f s p 1 2 P 12 


= 


2; 






000086 


f s p 1 2 P 10 


= 


3; 






000087 


fspl2 


= 


4; 






000088 


fspl4 


= 


5; 






000089 


fspl8 


= 


6; 






000090 


fsp24 


= 


7; 






000091 


fspLst 


= 


7; 






000092 










000093 


TYPE 








000094 


TFcc 


= 


RECORD 




000095 






cref: TB; 




000096 






argfbc: TArgb; 




000097 






END; 




000098 


TPfcc 


= 


"TFcc; 




000099 


THfcc 


= 


A TPfcc; 




000100 


TQuad 


= 


(quadL, quadC, quadR, quadj); 




000101 


TTyfill 


= 


(tyf i 1 1 Nil, tyfi 1 1 Dots, tyfi 1 1 Hyph 


tyfillUL); 


000102 


TTbdOld 


= 


PACKED RECORD 




000103 






x; TX; 




000104 






f i 1 14; 0. . 15; 




000105 






quad; TQuad; 




000106 






tyfi 1 1; TTyfi 1 1; 




000107 






chLdr; TCh; 




000108 






END; 




000109 


TTbd 


= 


PACKED RECORD 




000110 






x; TX; 




000111 






f i 1 13; 0. .7; 




000112 






f Dec i ma 1 Comma; TF; 




000113 






quad; TQuad; 




000114 






tyfi 1 1; TTyfi 1 1; 




000115 






chLdr; TCh; 




000116 






END; 




000117 


TArgtbd 


= 


ARRAY [0..0] OF TTbd; 




000118 


TRgtbd 


= 


A TArgtbd; 




000119 


TArcpe 


= 


PACKED RECORD 




000120 






cb; TB; 




000121 






bl; TB; 




000122 






END; 




000123 


TRcpe 


= 


A TArcpe; 




000124 


TArce 


= 


PACKED RECORD 




000125 






cb; 0..255; 




000126 






fVan; TF; 




000127 








f Bo 1 d : TF; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



TRce 
TArpe 



TRpe 
TTyf am 
TFsp 
TFstyl e 



TTydst 



f Ital ic: TF; 

f Underl i ne: TF; 

f i I 14: 0. . 15; 

cbSuperscri pt : TB; 

ifnt: TB; 

f Keep: TF; 

f Out Line: TF; 

f Shadow: TF; 

f Fi I I B: TF; 

f Fi I IC: TF; 

fFillD: TF; 

fFillE: TF; 

fFillF: TF; 

icsFig: TB; 

IpFig: TC; 
END; 
A TArce; 
PACKED RECORD 

cb: 0..255; 

sy: TB; 

xLftFst: TX; 

xLftBody: TX; 

xRt: TX; 

yLd: TY; 

f i I I 1: TB; 

y L i ne: 0. . 63; 

quad: TQuad; 

itbLim: TW; 

argtbd: ARRAY [0. .itbdLst] OF TTbd; 
END; 
A TArpe; 
0..3; 
TB; 
RECORD 

tyfam: TTyfam; 

fsp: TFsp; 
END; 
(tydstRce, tydstRpe, tydstTbd, tydstNil); 



VAR 



{$1 FC fDbgOk} 

f Tst Fmt : TF; {$ENDC} 

argfam: ARRAY [0. . i fntLst] OF TFam; 

tbdNil: TTbd; 

arceStd: TArce; 

arpeStd: TArpe; 

ampif ntf styl e: ARRAY [0. . i fntLst] OF TFstyle; 

PROCEDURE PxArcefVAR arce: TArce); 

PROCEDURE PxArpefVAR arpe: TArpe); 

FUNCTION Cf bcApplylf ld(if Id: TC; wsval : TW; pval: TPc; rpe: TRpe; 

rce: TRce): TC; 

FUNCTION If be Lst Appl y Rgf be ( r gf be: TRgb; rpe: TRpe; rce: TRce): TC; 

PROCEDURE AddRgf bc( VAR hfee: THfcc; hfccSrc: THfcc; hz: THz); 

PROCEDURE AddFop( VAR hfee: THfcc; ifld: TB; sval : TW; pval: TPc; hz: THz); 

PROCEDURE GenFopsDi f f (hfee: THfcc; tydst: TTydst; rcpeStd, rcpe: TP; 

hz: THz); 

PROCEDURE zz GenPar Fops ( hf c c : THfcc; rpe: TRpe; hz: THz); 
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000194 FUNCTION 1 1 bFr omX( r gt bd: TRgtbd; itbLst: TC; x: TX): TC; 

000195 

000196 PROCEDURE I nitFmt; 

000197 

000198 PROCEDURE PxRgf be ( r gf be : TRgb); 

000199 

000201 * 

000202 * THAT' S ALL FOLKS . .. 

000203 * 

000204 ******************************************************************** 

000205 

End of File -- Lines: 205 Characters: 5721 
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Fl LE: "LI SA LI B 3 UNI THZ. TEXT" 



000001 






000002 


* 




000003 


* APPLE LISA DESKTOP LIBRARY INTERFACES (Versio 


000004 


* 




000005 


*********************************************** 


000006 






000007 


USES {$U + } UNITHZ; 




000008 






000009 






000010 


1 NTRI NSIC SHARED; 




000011 






000012 


1 NTERFACE 




000013 


{$SETC f hz : = 


FALSE} 


000014 


{$SETC f hzP : = 


FALSE} 


000015 






000016 


USES 




000017 


{$U 1 1 bsm/Uni t St d } UnitStd, 


000018 


{$U 1 i bos/Sy 


sCall } SysCall; 


000019 






000020 


CONST 




000021 


tybkFree 


= 0; 


000022 


tybkStd 


= 1; 


000023 


tybkN 


= 2; 


000024 


tybkNrel 


= 3; 


000025 


{$1 FC NOT f h 


z} 


000026 


f Tst Hz 


= FALSE; {$ENDC} 


000027 


{$1 FC NOT f h 


z} 


000028 


fTstHzV 


= FALSE; {$ENDC} 


000029 


{$1 FC NOT f h 


zP} 


000030 


f Tst HzP 


= FALSE; {$ENDC} 


000031 


i pPool Max 


= 32000; 


000032 


c b Mi n As k 


= 512; 


000033 


MaxBI kSi ze 


= 32767; 


000034 






000035 


TYPE 




000036 


TH 


= A TP; 


000037 


TArgh 


= ARRAY [0..0] OF TH; 


000038 


TRgh 


= "TArgh; 


000039 


TTybk 


= 0..3; 


000040 


THz 


= A TAhz; 


000041 


TBp 


= PACKED RECORD 


000042 




fRelPBase: TF; 


000043 




CASE TF OF 


000044 




FALSE: 


000045 




(ip: 0.. 32000); 


000046 




TRUE: 


000047 




(iwP: 0.. 32000); 


000048 




END; 


000049 


TPpn 


= A TPn; 


000050 


TStn 


= PACKED RECORD 


000051 




tybk: TTybk; 


000052 




fDirty: TF; 


000053 




fLock: TF; 


000054 




fill: 0. . 15; 


000055 




ubt: TB; 


000056 




END; 


000057 


TNob 


= RECORD 


000058 




n: TN; 


000059 




stn: TStn; 


000060 




bp: TBp; 


000061 




data: TW; 



UNITHZ 
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000062 






END; 


000063 


TPnob 


= 


"TNob; 


000064 


TPpnob 


= 


"TPnob; 


000065 


TArgpnob 


= 


ARRAY [0..0] OF TPnob; 


000066 


TRgpnob 


= 


"TArgpnob; 


000067 


THrgpnob 


= 


"TRgpnob; 


000068 


TBk 


= 


"TAbk; 


000069 


TAbk 


= 


RECORD 


000070 






CASE TF OF 


000071 






FALSE: 


000072 






(hdr: PACKED RECORD 


000073 






tybk: TTybk; 


000074 






cw: 0. . 16000; 


000075 






END; 


000076 






CASE TTybk OF 


000077 






tybkNrel : 


000078 






(dataNrel: TW) ; 


000079 






tybkStd: 


000080 






(bp: TBp; 


000081 






dataStd: TW) ; 


000082 






tybkN: 


000083 






( SpaceFor Compact Rout i ne: 


000084 






nob: TNob); ); 


000085 






TRUE: 


000086 






(cwFree: TL; 


000087 






bkfNxt: TBk; 


000088 






bkfPrv: TBk; ); 


000089 






END; 


000090 


TAr gwBase 


= 


ARRAY [0..0] OF TW; 


000091 


TRgwBase 


= 


"TArgwBase; 


000092 


TAhz 


= 


RECORD 


000093 






bkFst: TBk; 


000094 






bkLst: TBk; 


000095 






bkfFst: TBk; 


000096 






rgwBase: TRgwBase; 


000097 






ipPoolMac: TC; 


000098 






hFst Free: TH; 


000099 






cbFree: TL; 


000100 






hrgpnob: THrgpnob; 


000101 






msklpnLst: TW; 


000102 






ipnCur: TC; 


000103 






cpnAvai 1 : TC; 


000104 






ubtCur: TB; 


000105 






procCbMore: TProc; 


000106 






procCbOfN: TProc; 


000107 






procFSwapl nN: TProc; 


000108 






procSwapOutN: TProc; 


000109 






f Scrambl e: TF; 


000110 






hScrambl e: TH; 


000111 






fUpScramble: TF; 


000112 






fCheck: TF; 


000113 






cCompact: TC; 


000114 






HasConcrete: TF; 


000115 






argpPool : ARRAY [0. .0] OF TP; 


000116 






END; 


000117 








000118 


VAR 






000119 


h Ni 1 : 


Th 


; 


000120 


pNi 1 : 


TP 


. 


000121 


hz Ni 1 : 


Th 


z; 


000122 


{ $1 FC f hz } 






000123 


fTstHzV: 


TF 


; {$ENDC} 


000124 


{$1 FC f hz } 






000125 


f Tst Hz: 


TF 


; {$ENDC} 


000126 


{$1 FC fhzP} 






000127 


f Tst HzP: 


TF 


; {$ENDC} 



I nteger; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



FUNCTION HAI I ocat e( hz: THz; cb: TC) : TH; 

FUNCTION Hzl nitfpFst: TP; pLi m: TP; pBase: TP; ipPoolMac: TC; loglpnLim: TC; 
procCbMore: TProc; procCbOfN: TProc; procFSwapl nN: TProc; 
pr oc SwapOut N: TProc): THz; 

PROCEDURE PxHzfhz: THz); 

PROCEDURE ChangeSi zeH(hz: THz; h: TH; cbNew: TC); 

PROCEDURE ChangeNSi ze(hz: THz; n: TN; cbNew: TC); 

PROCEDURE FreeBk( hz: THz; h: TH; tybk: TTybk); 

PROCEDURE AllocBkfhz: THz; hDst: TH; cb: TC; tybk: TTybk); 

FUNCTION PMapN( hz: THz; nSrc: TN) : TP; 

FUNCTION PCreat eNob( hz: THz; nSrc: TN; cbData: TC): TP; 

PROCEDURE Set FDi r t y ( hz: THz; n: TN; fDirty: TF); 

PROCEDURE Set CbFree( hz: THz; cbFree: TL; fEnlargeHz: TF); 

FUNCTION CbDataOf H(hz: THz; h: TH): TC; 

FUNCTION PAI I ocat e( hz: THz; cb: TC): TP; 

PROCEDURE FreeHfhz: THz; h: TH); 

PROCEDURE FreeP( hz: THz; p: TP); 

PROCEDURE FreeNfhz: THz; n: TN); 

PROCEDURE ReleaseBkNrel (hz: THz; 

FUNCTION PLst Fr ee( hz: THz): TP; 

FUNCTION HzFromHfh: TH) : THz; 

FUNCTION FCheckHzOk(hz: THz; VAR cBkStd: TC) : TF; 

FUNCTION HLockN(hz: THz; n: TN; f NeedH: TF): TH; 

PROCEDURE UnlockNfhz: THz; n: TN) ; 

PROCEDURE LockHandl el nConcr et e( h: TH) ; 

PROCEDURE Unl ockHandl eFr omConcr et e( h: TH); 

PROCEDURE EnlargeHzfhz: THz; cbMore: TL); 

FUNCTION CbShri nkHzfhz: THz; cbLess: TL): TL; 

FUNCTION CbOf Hz( hz: THz): TL; 
{ $1 FC f OS} 

FUNCTION CbMor eGr owSeg( hz : THz; cbNeed: TC) : TC; 
{SENDC} 

FUNCTION PnobFromNfhz: THz; n: TN): TPnob; 

PROCEDURE Scrambl e( hz : THz); 

******************************************************************************* 



pFstRelease: TP); 
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THAT' S ALL FOLKS . .. 



000194 * 

000195 * 

000196 * 

000198 



End of File -■ Lines: 198 Characters: 5673 
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Fl LE: "LI SA LI B 3 UNITS. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP 3.0 LIBRARIES UNIT TABLE 

Uni t Name Unit* File* Type DataSize 



PASLI B 

UNITSTD 

GRAFUTI L 

UNITHZ 

STORAGE 

QUICKDRA 

HIM NT 

FEDEC 

FONTMGR 

EVENTS 

WINDOWS 

FOLDERS 

MENUS 

FLDUT 

WMLSTD 

WMLCRS 

WMLGROW 

WMLSB 

I NTERNAT 

FPLI B 

ALERTMGR 

MATHLI B 

UNITFF 

UNITCS 

UNITFI LE 

UNITFMT 

BGENV 

MATMGR 

PARSER 

COMPUTE 

STUBS 

UUNI VERS 

FEGLOBAL 

COMGR 

USTDTERM 

UQPGRAPH 

TEEXEC 

UQPPRI NT 

LCFEXEC 

TEENV 

TM 

FMGRUTI L 

PMM 

PMDECL 

UNITFI GA 

SYS1LOCK 

UCLASCAL 

UTKUNI VE 

UOBJ ECT 

UTEXT 

UDRAW 

UABC 

UDI ALOG 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
49 
50 
51 
52 
53 
54 



3 I 

4 I 



6 

6 

4 

4 

4 

4 

4 

3 

11 

10 

11 

10 

10 

11 



nt r i n 
nt r i n 
nt r i n 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
hared 
hared 
hared 
hared 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
hared 
hared 
hared 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
hared 
nt r i n 
hared 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 
nt r i n 



000000 
000002 
000000 
000024 
000008 
0000CE 
000000 
000000 
000054 
000210 
0010F2 
00000A 
00009C 
000000 
000018 
0003FE 
00000E 
000038 
000000 
000006 
000300 
000016 
00004A 
000644 
000156 
0001F2 
000058 
00188E 
0006FC 
000084 
000000 
000222 
000398 
00033C 
0002CE 
000056 
000004 
000188 
0001A6 
00080E 
000BCA 
000000 
000042 
000000 
00002A 
000000 
00004E 
0001CA 
000164 
00027C 
0001B2 
0009F2 
000564 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 



LCUT 

IOPRI MIT 

SHELLCOM 

PROGCOMM 

RECOVERY 

LOWLEVEL 

DBDECL1 

POOLER 

DBENV 

HEAP 

VLTREE 

CZCOMPAC 

LABSCAN 

SCHEMA 

SCAN 

FIELDEDI 

SCRAP 

FILERCOM 

PRPUBLIC 

PRSTDI NF 

PRSTDPRO 

PRFI LEPR 

PRBUF 

PRSPOOL 

QUEUES 

PREVENTS 

PRDLGMGR 

PRMGR 

UVT100 

USOROC 

STDUNIT 

I UMAN 

OBj 10 

F I LEI 

GRAPHS 

TREES 

REFS 

PARTS 

LISTS 

MEMMAN 

PASDEFS 

MPASLI B 

BLKIOI NT 

BLOCKIO 

PASHEAP 



55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
68 
69 
70 
71 
73 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
90 
91 
92 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 



6 
12 
12 
12 
6 
6 
6 
6 
4 
6 
6 
6 
6 
6 
6 



I nt r i n 
I nt r i n 
Shared 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
Shared 
Shared 
I nt r i n 
Shared 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
I nt r i n 
Shared 
I nt r i n 



00002C 
00057E 
00070C 
000006 
000000 
000126 
000000 
000052 
000000 
000000 
000000 
00001C 
000000 
000000 
000000 
0000CA 
000250 
0002E8 
000000 
0005D0 
000002 
000000 
000010 
000346 
000000 
000000 
0000BA 
000026 
00001C 
00001C 
0005B0 
0000BC 
00011C 
000000 
000008 
000000 
000004 
000004 
000000 
000000 
00025E 
000000 
0000DE 
0005C4 
000022 



************************************************************************** 



THE END 






End of File 



Li nes: 113 Characters: 3628 
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Fl LE: "LI SA LI B 3 UNI TSTD. TEXT" 



000001 






000002 


* 






000003 


* APPLE LI SA DESKTOP 


LI BRARY 1 NTERFACES ( Versi 


000004 


* 






000005 


********************************************** 


000006 








000007 


USES {$U+} UNITSTD; 






000008 








000009 








000010 


1 NTRI NSIC; 






000011 








000012 


1 NTERFACE 






000013 


{$Setc fDbgOK 


= FALSE} 




000014 


{$Setc fOS 


= TRUE} 




000015 


{$Setc fSymOK 


= FALSE} 




000016 


{$Setc fstdl 


= FALSE} 




000017 


{ $Set c fTrace 


= FALSE} 




000018 


{$SETC doTraceSM 


= TRUE} 




000019 


{$SETC f TraceSM 


= doTraceSM AND 


fTrace} 


000020 


{$1 FC fTrace} 






000021 








000022 


USES 






000023 


{$U 1 i bos/ sysc 


i\ 1 . obj } Syscal 1 , 




000024 


{$ENDC} 






000025 


(*$R.*) 






000026 








000027 


CONST 






000028 


chLst 


= 127; 




000029 


chSp 


= 32; 




000030 


chCr 


= 13; 




000031 


chTab 


= 9; 




000032 


olleNi 1 


= 0; 




000033 


procNi 1 


= i; 




000034 


{$1 FC NOT f Dbg 


Ok} 




000035 


fTstStd 


= FALSE; 


{$ENDC} 


000036 


{$1 FC NOT fstd 


1} 




000037 


fTstStdl 


= FALSE; 


{$ENDC} 


000038 








000039 


TYPE 






000040 


TC 


= 1 NTEGER; 




000041 


TB 


= ■ 128. . 127; 




000042 


TA 


= 0..127; 




000043 


TP 


= A TB; 




000044 


TPc 


= *TC; 




000045 


TPa 


= LONGI NT; 




000046 


TF 


= BOOLEAN; 




000047 


TX 


= TC; 




000048 


TY 


= TC; 




000049 


TL 


= LONGI NT; 




000050 


TW 


= 1 NTEGER; 




000051 


TCh 


= TB; 




000052 


TCd 


= TC; 




000053 


TN 


= TL; 




000054 


TPn 


= A TN; 




000055 


TFd 


= RECORD 




000056 




i Fi 1 : TB; 




000057 




bhi: TB; 




000058 




iblo: TW 




000059 




END; 




000060 


TPFd 


= "TFd; 




000061 


TNOrFd 


= PACKED RECORD 





UNITSTD 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



TArgch 

TRgch 

TAchad 



TChad 

TArgb 

TRgb 

THrgb 

TAbad 



TBad 

TArgc 

TRgc 

TArgx 

TRgx 

TCmp 

TAIId 



TLId 
TAI le 



TLIe 

TSp 

TPsp 

THsp 

TARgCHAR 

TRgCHAR 

TProc 



CASE TC OF 
1: 

(fd: TFd); 
2: 

(n: TN); 
END; 

ARRAY [0..0] OF TCh; 
"TArgch; 
RECORD 

rgch: TRgch; 

ichFst: TC; 

i chLi m: TC; 
END; 

"TAchad; 

ARRAY [0..0] OF TB; 
"TArgb; 
"TRgb; 
RECORD 

rgb: TRgb; 

ichFst: TC; 

i chLi m: TC; 
END; 
"TAbad; 

ARRAY [0..0] OF TC; 
"TArgc; 

ARRAY [0..0] OF TX; 
"TArgx; 

(cmpLs, cmpEq, cmpGr); 
RECORD 

olleFreeFst: TC; 

olleLim: TC; 
END; 
"TAIId; 
RECORD 

olleNxt: TC; 

ollePrv: TC; 
END; 
"TAI le; 
STRI NG[ 80] ; 
"TSp; 
"TPsp; 

PACKED ARRAY [0. .0] OF CHAR; 
"TARgCHAR; 
TP; 



VAR 



Temp: I nteger; 

{$1 FC fDbgOk} 

fTstStd: TF; 

{SENDC} 

{$IFC fstdl} 

fTstStdl: TF; 

{$ENDC} 

{$1 FC NOT f SymOk} 



{$D-} {$ENDC} 



FUNCTION CMi n(cl: TC; c2: TC) : TC; 

FUNCTION CMaxfcl: TC; c2: TC) : TC; 

PROCEDURE MoveAchad( VAR achadDst: TAchad; VAR achadSrc: TAchad); 

PROCEDURE MoveRgc h( r gchDst : TRgch; rgchSrc: TRgch; cb: TC); 

PROCEDURE MoveOvRgchf rgchDst: TRgch; rgchSrc: TRgch; cb: TC); 

PROCEDURE DivMod(num: TC; denom: TC; VAR quotient: TC; VAR rem: TC); 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 



FUNCTION I B i nSearc h( rgc : TRgc; icLst: TC; c: TC): TC; 

PROCEDURE Break! bkcd: TC); 

PROCEDURE MoveOI I e( I Id: Tl I d; ol I e: TC; VAR olleDstFst: TC; 
VAR ol leSrcFst; TC); 

PROCEDURE PxLldfl Id; TLId); 

PROCEDURE I ni t Ol I eFr ee( I Id; TLId; olleFreeFst: TC; cbAlle: TC); 

FUNCTION I c hCr ( VAR achad; TAchad; f Fwd: TF); TC; 

FUNCTION WAnd(wl, w2: TW) : TW; 

FUNCTION WXor(wl, w2; TW) ; TW; 

FUNCTION WNot(w: TW) ; TW; 

FUNCTION WShLf t ( w: TW; cbitSh; TW) ; TW; 

FUNCTION WShRtfw; TW; cbitSh; TW) ; TW; 

PROCEDURE AsgnFi el d ( p: TP; lb; TW; mskNot Fid: TW; val: TW; cbitSh: TC); 

FUNCTION ValOf Fieldfp: TP; lb: TW; mskNot Fid: TW; cbitSh: TC): TW; 

FUNCTION UpperCh(ch: CHAR): CHAR; 

PROCEDURE MakeSpUpper ( VAR sp: TSp); 
{$1 FC f Trace} 

PROCEDURE I nitTrCal Is; 

PROCEDURE LogCall; 

PROCEDURE Reset Trace) LogNames AndSegs : Boolean); 

PROCEDURE StartCal I Log; 

PROCEDURE StopCal I Log; 

PROCEDURE ListCal Is; 

PROCEDURE SetCal I Trace! Tracei t: Boolean); 
{SENDC} 

******************************************************************************* 
* 



THAT' S ALL FOLKS . .. 



* 
* 
******************************************************************************* 



End of File 
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000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : USOROC 

000004 * 

V U V U V J 

000006 

000007 USES {$U+} USOROC; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U tklib} UObject, 

000016 {$U sysll i b} QuickDraw, 

000017 {$U tkli b} UDraw, 

000018 {$U tklib} UABC, 

000019 < $ U tklib} UTKUni versal Text , 

000020 {$U tkli b} UText, 

000021 {$U tkli b} UDialog, 

000022 {$U i ospasl i b} Bl ki oi nt r, 

000023 {$U I i bqp/ UStdTer m} UStdTerm; 
000024 

000025 CONST 

000026 maxl = 3; 
000027 

000028 TYPE 

000029 states = (qO, ql, q2, q3, q4, q6); 

000030 Mist = ARRAY [ 1 . . ma x I ] OF CHAR; 

000031 smal Istr = STRI NG[ 10] ; 

000032 TSOROC = SUBCLASS OF TStdTerm 

000033 state; states; 

000034 I; Mist; 

000035 newline; BOOLEAN; 

000036 params, pos, top, bottom, rmarg: INTEGER; 

000037 vReadBuff: TString; 

000038 FUNCTION CREATE! obj ect ; TObject; heap; Theap); TSOROC; 

000039 END; 
000040 

000042 * 

000043 * THAT' S ALL FOLKS . .. 

000044 * 

000045 ******************************************************************************* 

End of File -- Lines; 45 Characters; 1224 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UVT100 

USES {$U+} UVT100; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U tkli b} UObject, 

{$U sysll i b} Qui ckDraw, 

{$U tkli b} UDraw, 

{$U tkli b} UABC, 

{$U tkli b} UTKUni versal Text , 

{$U tkli b} UText, 

{$U tkli b} UDialog, 

{$U i ospasl i b} Bl ki oi nt r, 

{$U I i bqp/ UStdTer m} UStdTerm; 



CONST 
maxp 
max I 
bmarg 
t marg 

TYPE 
states 
Plist 
I list 
padtype 
curskeymodes 
s ma I I st r 
typeStyl e 
f ontStuff 



TVT100 



5; 
5; 
23; 
0; 



(qO, ql, q2, q3, q4, q5, q6, q7); 
ARRAY [1.. maxp] OF Tst r 255; 
ARRAY [1.. maxl] OF CHAR; 
(ansiAppi, v 1 5 2 Ap p I , normal); 
( ansi Set, ansi Reset, vt 52s et ) ; 
stri ng[ 10] ; 
(GR, US, UK); 
RECORD 

vcursorXY; TCoordi nat e; 

char I nf o; TRAtt r i but es; 

c ur r Type: typestyle; 
END; 
SUBCLASS OF TStdTerm 

state: states; 

P: Plist; 

I : I I ist; 

newl i ne, ansi, vt 52 , Let Her Scrol I , ukPound, 

origabs: BOOLEAN; 

params, pos, top, bottom, rmarg: INTEGER; 

charAttr: fontStuff; 

vReadBuf f : TSt ri ng; 

SIFont, SOFont, cur rent Font : typeStyle; 

TILE12VTS, TILE20VTS: INTEGER; 

Cur sor KeyMode: curskeymodes; 

keyPad: padtype; 

FUNCTION CREATEf obj ect : TObject; heap: Theap): TVT100; 
END; 



* 
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000063 * 

000064 ****************************************************************** 

000065 

End of File -- Lines: 65 Characters: 2028 



Apple Lisa Desktop Library 3.0 Pascal Interfaces ■■ 185 of 196 



Apple Lisa Computer Technical Information 



Fl LE: "LI SA LI B 3 VLTREE. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : VLTREE 

USES {$U+} VLTREE; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$1 FC OSBUI LT } 



{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/unitstd.obj} unitstd, 
bdb/ dbenv. obj } dbenv, 
bi n/ 1 NTRLI Bp. obj } international, 
bdb/dbdecl l.obj } dbdecl 1, 
bos/syscal I . obj } syscal I , 
bos/ psyscal I . obj } psyscal I , 
bdb/ 1 owl evel .obj } I owl evel , 
bdb/ pool er. obj } pool er, 
bdb/ heap, obj } heap; 



{$U 

{$ELSEC} 

{$U OBJ : dbenv. obj } dbenv, 
{$U I NTRLI B. obj } i nternati onal , 
{$U OBj : dbdecl l.obj } dbdecl 1, 
{$U OBJ : syscal I . obj } syscal I , 
{$U OBJ : I owl evel .obj } I owl evel , 
{$U OBJ : pool er. obj } pool er, 
{$U OBJ : heap, obj } heap; 

{$ENDC} 



Const 



nof I ow 
t reeempt y 
rotate 
coal I esce 
pageempty 
i spl i t 



FUNCTION ent r y s i z e ( f i r s t f I d, lastfld, doitfld, isize: integer; 
pedesc: ptrrecptr; prec: ptrdata): integer; 

FUNCTION qui cki nsert ( f i I ei d: integer; pagetype: integer; pnewrec: ptrdata; 
size: integer; pfptr: ptrfileptr; canmove: boolean; 
index, buffi: integer; VAR i page: fileptr; 
VAR iindex: integer): boolean; 

FUNCTION qui ckDel et e( VAR kresult: integer; onfile: integer; qpage: fileptr; 
qi ndex: i nt eger ) : bool ean; 

FUNCTION qui ckUpdat e( VAR kresult: integer; onfile: integer; pnewrec: ptrdata; 
si ze: i nteger; qpage: f i I ept r; 
qi ndex: i nteger) : bool ean; 

FUNCTION split ORr ot at e( VAR kresult: integer; fileid: integer; 

pagetype: integer; pnewrec: ptrdata; size: integer; 
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000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 



Apple Lisa Computer Technical Information 

pfptr: ptrfileptr; canmove: boolean; index, 
buffi: integer; leftsib, rightsib: fileptr; 
VAR buff 2 : integer; VAR i page: fileptr; 
VAR iindex: integer; ps: pt rst ackrec; 
VAR sibpage: fileptr): integer; 

PROCEDURE f i rst I eaf ( VAR kresult: integer; fileid: integer; pagetype: integer; 
pnewrec: ptrdata; size: integer; VAR i page: fileptr; 
VAR i i ndex: i nt eger ) ; 

FUNCTION pagedel et e( VAR kresult: integer; fileid: integer; pagetype: integer; 
buffer, index: integer; closestsib: fileptr; 
VAR rbuff: integer; VAR dpage: fileptr; 
VAR dindex: integer): integer; 

PROCEDURE f i nddupl i cat e( VAR kresult: integer; fileid: integer; pedesc, 

psdesc: ptrrecptr; nsearch: integer; isjnsert, 
dupl i mpossi bl e: boolean; pkey: ptrdata; VAR buffer, 
index: integer; VAR stacki nval i d: integer); 

PROCEDURE next pri or ( VAR kresult: integer; fileid: integer; VAR buffer, 
index: integer; which: integer); 

PROCEDURE f i nd ( VAR kresult: integer; which: integer; nsearch: integer; 
fileid: integer; psdesc: ptrrecptr; pkey: ptrdata; 
VAR buffer: i nt eger) ; 

PROCEDURE f i n d key e d ( VAR kresult: integer; which: integer; nsearch: integer; 
fileid: integer; psdesc: ptrrecptr; pkey: ptrdata; 
VAR buffer, buffindex: integer); 

PROCEDURE i nsert key ed( VAR kresult: integer; fileid: integer; pkey: ptrdata; 

size: integer; VAR i page: fileptr; 
VAR i i ndex: i nt eger ) ; 

PROCEDURE del et ekey ed( VAR kresult: integer; fileid: integer; pkey: ptrdata; 

VAR dpage: fileptr; VAR dindex: integer); 

******************************************************************************* 



* 
* 
* 



THAT' S ALL FOLKS 



End of File 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WINDOWS 

USES {$U + } WINDOWS; 

I NTRI NSIC SHARED; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/UnitStd 
bsm/UnitHz 
bq d / Storage 
bqd/ Qui ckDraw 
bf ml Font Mgr 
bos/ SysCal I 
bwm/ Events 



Uni tStd, 
Uni t Hz, 

Storage, 
Qui ckDraw, 
Font Mgr, 

SysCal I, 
Events; 



CONST 

I ast Wi ndow 

TYPE 

Stri ngPt r 
St r i ngHandl e 
Wi ndowPeek 
Wi ndowRecord 



24; 



Wi n d o wMe s s a g e 



A Str255; 
A Stri ngPtr; 
A Wi ndowRecord; 
RECORD 

port; GrafPort; 

strucRgn; RgnHandle; 

cont Rgn; RgnHandl e; 

updat eRgn; RgnHandl e; 

wi ndowPi c; Pi cHandl e; 

wi ndowProc; ProcPt r; 

da t a Handl e; Handl e; 

ref Con; Longl nt ; 

process; Longl nt; 

t i 1 1 e Handl e; St r i ngHandl e; 

titleWidth; INTEGER; 

next Wi ndow; Wi ndowPeek; 

c I os el c on : INTEGER; 

iconOverlay; INTEGER; 

available; BOOLEAN; 

visible; BOOLEAN; 

hilited; BOOLEAN; 

hasTab: BOOLEAN; 

okMove; BOOLEAN; 

okGrow; BOOLEAN; 

okFront; BOOLEAN; 

okClose; BOOLEAN; 

okActivate; BOOLEAN; 

okDispose; BOOLEAN; 
END; 
(draw, hit, calcRgns); 



{ wi ndow process owner } 



VAR 



but t o n Wi ndow: Wi ndowPeek; 
grayRgn; RgnHandl e; 

wmPort; GrafPtr; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



saveUpdate: BOOLEAN; 

paintWhite: BOOLEAN; 

wi ndowAr r ay: ARRAY [ 0. . I as t Wi ndow] OF Wi ndo wRec or d ; 

dPort, wPort: GrafPort; 

PROCEDURE Br i ngToFront ( wi ndow: Wi ndowPeek; reDraw: BOOLEAN); 

PROCEDURE Cal cVi s ( wi ndow: Wi ndowPeek) ; 

PROCEDURE Cal cVi sBehi nd( startWi ndow: Wi ndowPeek; clobbered: RgnHandle); 

PROCEDURE ChangePr oc ess ( wi ndow: WindowPtr; newProcess: ProcessID); 

PROCEDURE CheckWi ndowfVAR event: Event Record) ; 

PROCEDURE CI i pAbo ve( wi ndow: Wi ndowPeek); 

PROCEDURE Del eteWi ndow( wi ndow: Wi ndowPeek); 

PROCEDURE Di sposeSt ri ng( sh: St r i ngHandl e) ; 

PROCEDURE DrawNewfwi ndow: WindowPeek; fUpdate: BOOLEAN); 

PROCEDURE Get Wi ndTi 1 1 e( wi ndow: WindowPeek; VAR title: St r 255) ; 

PROCEDURE Hi deWi ndow( wi ndow: WindowPeek); 

PROCEDURE Hi LiteWi ndowfwi ndow: WindowPeek; f Hi Li t e : BOOLEAN); 

PROCEDURE Hi tContent ( wi ndow: WindowPeek; event: Event Record) ; 

PROCEDURE I nsertWi ndow( wi ndow, behind: WindowPeek); 

PROCEDURE Ma ke Ac t i ve( wi ndow: WindowPeek; event: Event Record) ; 

PROCEDURE MoveWi ndow(wi ndPeek: WindowPeek; dh, dv: INTEGER; 
bringFront: BOOLEAN); 

FUNCTION NewString(str: St r 255) : St ri ngHandl e; 

PROCEDURE Pai nt Behi nd( st art Wi ndow: WindowPeek; clobbered: RgnHandle); 

PROCEDURE Pai nt One( wi ndow: WindowPeek; clobbered: RgnHandle); 

FUNCTION PrevWi ndow( wi ndow: WindowPeek): WindowPeek; 

PROCEDURE SaveOI d( wi ndow: WindowPeek); 

PROCEDURE SendUpdate; 

PROCEDURE Set Ac t Wi ndow( wi ndow: WindowPeek); 

PROCEDURE SetStri ngfsh: St ri ngHandl e; str: St r 255) ; 

PROCEDURE Set Wi ndTi 1 1 e( wi ndow: WindowPeek; title: St r 255) ; 

PROCEDURE ShowWi ndow( wi ndow: WindowPeek); 

PROCEDURE TopActi ve; 

FUNCTION UpShiftfch: CHAR): CHAR; 

PROCEDURE Wi ndowSi ze( wi ndow: WindowPeek; width, height: INTEGER; 
fUpdate: BOOLEAN); 

*********************************** 
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THAT' S ALL FOLKS . .. 



000128 * 

000129 * 

000130 * 

000132 



End of File -■ Lines: 132 Characters: 3916 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLCRS 

USES {$U + } WMLCRS; 

I NTRI NSIC; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



i bsm/Unitstd } UnitStd, 

i bsm/UnitHz } UnitHz, 

i bq d / Storage } Storage, 

i bqd/ Qui ckDraw } QuickDraw, 

i bf ml Font Mgr } Font Mgr, 

i bf ml Fmgr Ut i I } Fmgr Ut i I , 

i bsb/WmlStd } WmlStd; 



CONST 
crsFi 
crsHi 
crsEs 
crsl n 
crsUp 
crsLf 
crsGr 
crsl b 
crsMe 
crsVS 
crsHS 
crsLC 
crsXI 
crsHr 
crsCh 
crsGE 
crsLF 
crsGE 
cr s La 



rst 

dden 

cape 

act i ve 

Dwn 

tRt 

ow 

earn 

nu 

kewer 

kewer 

cross 

Beam 

Gl ass 

eck 

Cross 

i nger 

I beam 

st 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

15 



l; 
l; 



PROCEDURE I ni t Wml Cr s ( VAR cError: TC); 
PROCEDURE Set St dCur s or ( i crs: TC); 

FUNCTION IcrsCurrent: TC; 

******************************************************************************* 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLGROW 

USES {$U + } WMLGROW; 

I NTRI NSIC; 

I NTERFACE 

USES 

{$U I i bsm/Uni t Hz 

{$U I i bqd/ Storage 

{$U I i bqd/ Qui ckDraw 

{$U I i bf m/ Font Mgr 

{$U I i bsb/WmlStd 

{$1 FC FWMLOS } 

{$U I i bos/SysCal I } SysCall, 

{$ELSEC } 

{$U obj : OSStub } SysCall, 

{$ENDC} 

{$U I i bwm/ Events } Events, 

{$U I i bwm/ Fol ders } Fol ders; 



{$U I i bsm/Uni tStd } UnitStd, 
} UnitHz, 
} Storage, 
} Qui ckDraw, 
} Font Mgr, 
} Wml Std, 



CONST 
dhGrow 
dvGrow 



24; 
16; 



PROCEDURE Get GrowRect ( VAR rGrow: TR) ; 

PROCEDURE Pai ntGrow; 

FUNCTION FGrowHit(pt; TPt); TF; 

PROCEDURE DragFrame( pt Mouse: TPt; f DrawScrol I s: TF; VAR ptNewBR: TPt); 

PROCEDURE I ni t Xor Frame; 

PROCEDURE Xor Fr ame( pt FrameBR: TPt; f DrawScrol I s: TF); 

PROCEDURE EndXorFrame; 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 
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000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 



* 

* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLSB 

USES {$U + } WMLSB; 

I NTRI NSIC; 
I NTERFACE 



USES 
{$U 
{$U 
{$U 
{$U 
{$U 
{$U 



bsm/UnitStd } UnitStd, 

bsm/UnitHz } UnitHz, 

bqd/Storage } Storage, 

bqd/ Qui ckDraw } QuickDraw, 

bf m/ Font Mgr } FontMgr, 



bsb/WmlStd 
{$1 FC FWMLOS} 
{$U I i bos/Syscal I 
{$ELSEC} 

{$U obj : OsStub 

{$ENDC} 

{$U I i bwm/ Events 



} WmlStd, 
} Syscal I , 
} Syscal I , 
} Events; 



CONST 
dhSbox 
dvSbox 

dhThumb 
dvThumb 
dhSkewer 
dvSkewer 

TYPE 
Tl con 

TSi con 
THSb 
TPSb 
TSb 



TSbList 



TPosts 



24; 

16; 

24; 

16; 

6; 

4; 



( i conS 
i conG 

SET OF 

"TPSb; 

"TSb; 

RECORD 
r ; 

tyv 
si c 
si c 
cTh 
ref 
f He 
hsb 
hsb 

END; 

RECORD 
hz: 
hsb 

END; 

ARRAY 



kewer, iconArwA, iconPagA, iconGryA, iconThumb, 
ryB, i conPagB, i conArwB) ; 
Tl con; 



TR; 

h; TTyvh; 
on: TSicon; 
onVis; TSicon; 
umb: TC; 
Con; TL; 
ad; TF; 
Prv; THSb; 
Nxt; THSb; 



THz; 
Fst; THSb; 

[ i conSkewer. . i conArwB] OF TCd; 



VAR 



hsbNi I ; 
dptSbox; 



THSb; 
TPt; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



dptThumb: TPt; 

dpt Skewer : TPt; 

TyvhNOT: ARRAY [TTyvh] OF TTyvh; 

fTstSb: TF; 

PROCEDURE I nitWml Sb; 

PROCEDURE I ni tSbLi st ( VAR sbList: TSbList; hz: THz); 

FUNCTION SbCreate(VAR sbList: TSbList; hsbBef ore: THSb; tyvhSb: TTyvh; 
ptTopLeft: TPt; cdBotRt: TCd): THSb; 

PROCEDURE Ki I I Sb( VAR sbList: TSbList; hsbKi I I : THSb); 

PROCEDURE Get SbRec t ( hsb: THSb; VAR r: TR); 

PROCEDURE Set SbRec t (hsb: THSb; r: TR) ; 

FUNCTION Ref conSb( hsb: THSb): TL; 

PROCEDURE Set SbRef con( hs b: THSb; refcon: TL); 

FUNCTION HsbFi rst(VAR sbList: TSbList): THSb; 

FUNCTION HsbNext ( hsb: THSb): THSb; 

FUNCTION HsbPrevfhsb: THSb): THSb; 

FUNCTION TyvhOf Sb( hsb: THSb): TTyvh; 

PROCEDURE Set Sbl cons( hsb: THSb; si conNew: TSicon); 

PROCEDURE Get Sbl cons( hsb: THSb; VAR sicon: TSicon); 

PROCEDURE Get Vi si cons( hsb: THSb; VARsiconVis: TSicon); 

FUNCTION CThumbPosI hsb: THSb): TC; 

PROCEDURE SetThumbfhsb: THSb; cNewThumb: TC); 

PROCEDURE MoveSbfhsb: THSb; ptNewTL: TPt); 

PROCEDURE Adj SbCor ner ( hsb: THSb; dcdAdjust: TCd; fTopLeft: TF); 

PROCEDURE Pai ntSbfhsb: THSb); 

PROCEDURE EraseSbfhsb: THSb); 

PROCEDURE Pai nt Ar w( hsb: THSb; i conWhi chArw: Tlcon; fBlack: TF); 

FUNCTION HsbFr omPt ( VAR sbList: TSbList; pt: TPt): THSb; 

FUNCTION FSbHi t ( VAR sbList: TSbList; pt: TPt; VAR hsbHit: THSb; 
VAR iconHit: Tlcon): TF; 

PROCEDURE Fl ushRect s( VAR r H, rV: TR) ; 

PROCEDURE MkPostsfhsb: THSb; VAR posts: TPosts); 

PROCEDURE Spl itSbfVAR sbList: TSbList; hsbOld: THSb; VAR hsbNew: THSb; 
cdCut: TCd); 

PROCEDURE Adj Spl i tBetween( hsbBefore, hsbAfter: THSb; dcdAdjust: TCd); 

FUNCTION HsbNext OnSbar( hsb: THSb): THSb; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 



FUNCTION Hs bPr evOnSbar ( hs b: THSb): THSb; 

FUNCTION Hs bSbar Head( hs b: THSb): THSb; 

FUNCTION HsbSbarTai I (hsb: THSb): THSb; 

FUNCTION FSbar Head( hsb: THSb): TF; 

PROCEDURE SI i d e S b a r (hsb: THSb; dcdAdj list : TCd); 

PROCEDURE Pai nt Sbar ( hsb: THSb); 

PROCEDURE Er a seSbar (hsb: THSb); 

PROCEDURE Set upMvThumb( hsb: THSb); 

PROCEDURE MoveThumb(cNewThumb: TC); 

PROCEDURE DragThumblhsb: THSb; ptMouse: TPt; VAR cThumbUp: TC); 

PROCEDURE FixRLimitsfhsb: THSb; VAR rLimits: TR) ; 

PROCEDURE Dr agSkewer ( hs bDwn: THSb; ptMouse: TPt; rLimits: TR; 
VAR pt Skewer Up: TPt); 

PROCEDURE Hi deSBor der ( r : TR); 
{$1 FC Wml Debug } 

PROCEDURE PxSbLi st ( VAR sbList: TSbList); 

PROCEDURE PxSi con( si con: TSicon); 

PROCEDURE PxSbfhsb: THSb); 

PROCEDURE PxSbar ( hsb: THSb); 

{$ENDC } 

* 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File 
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000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLSTD 

000004 * 

V U V U V J 

000006 

000007 USES {$U+} WMLSTD; 

000008 

000009 

000010 INTRINSIC; 

000011 {$SETC FWMLOS : = TRUE } 
000012 

000013 INTERFACE 
000014 

USES 

{$U I i bsm/UnitHz } UnitHz, 

{$U I i bqd/ Storage } Storage, 

{$U I i bqd/ Qui ckDraw } QuickDraw, 

{$U I i bf ml Font Mg r } Font Mgr ; 

{$SETC Wml Debug := FDbgOK } 

{$SETC Wml Symbols := FSymOk } 

{$SETC doTraceSB : = TRUE} 

{$SetC fTraceSB := doTraceSB AND f TRACE} 



000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 



{$U I i bsm/Uni tStd } UnitStd, 



V; 
H; 


Graf Port; 


Graf Ptr; 


Bi tMap; 


Poi nt; 


VHSelect; 


Red; 



CONST 
tyvhV 
tyvhH 

TYPE 

TAport 

TPort 

TBmp 

TPt 

TTyvh 

TR 

PROCEDURE PenSave; 

PROCEDURE PenRest ore; 

PROCEDURE WmlTxtSave; 

PROCEDURE Wml Txt Rest ore; 

* THAT' S ALL FOLKS . .. 

******************************************************************************* 



End of File -- Lines: 50 Characters: 1110 
SUMMARY: 



Total number of files 
Total file I i nes 
Total file characters 



76 

9648 

278266 
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